Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
tools/pas2c/Pas2C.hs
changeset 10240 bfae7354d42f
parent 10142 adb804cb2638
child 10245 3ccc054c3c3e 
--- a/tools/pas2c/Pas2C.hs	Wed May 07 22:47:54 2014 +0200
+++ b/tools/pas2c/Pas2C.hs	Fri May 09 22:36:15 2014 +0400
@@ -121,7 +121,7 @@
                     let ptree = parse pascalUnit fileName fc
                     case ptree of
                          (Left a) -> do
-                            liftIO $ writeFile (outputPath ++ "preprocess.out") fc
+                            liftIO $ writeFile (outputPath ++ fileName ++ "preprocess.out") fc
                             printLn $ show a ++ "\nsee preprocess.out for preprocessed source"
                             fail "stop"
                          (Right a) -> do
hedgewars