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/PascalPreprocessor.hs
changeset 10120 b7f632c12784
parent 10119 7e05a397602f
child 10240 bfae7354d42f 
--- a/tools/pas2c/PascalPreprocessor.hs	Fri Feb 07 14:41:49 2014 +0400
+++ b/tools/pas2c/PascalPreprocessor.hs	Fri Feb 07 15:44:27 2014 +0400
@@ -81,7 +81,9 @@
         char' '}'
         f <- liftIO (readFile (inputPath ++ ifn) 
             `E.catch` (\(_ :: E.IOException) -> readFile (alternateInputPath ++ ifn) 
-            `E.catch` (\(_ :: E.IOException) -> error ("File not found: " ++ fn))))
+                `E.catch` (\(_ :: E.IOException) -> error $ "File not found: " ++ ifn)
+                )
+            )
         c <- getInput
         setInput $ f ++ c
         return ""
hedgewars