# HG changeset patch
# User unc0rr
# Date 1335790502 -14400
# Node ID 6dde80ae7049c557f593440cde1f89860e54de77
# Parent  0c181b88daffa841753450bb521af01d237f7f79
Raise exception when .inc file isn't found

diff -r 0c181b88daff -r 6dde80ae7049 tools/PascalPreprocessor.hs
--- a/tools/PascalPreprocessor.hs	Sun Apr 29 21:17:27 2012 +0200
+++ b/tools/PascalPreprocessor.hs	Mon Apr 30 16:55:02 2012 +0400
@@ -74,7 +74,7 @@
         char '"'
         spaces
         char '}'
-        f <- liftIO (readFile fn)
+        f <- liftIO (readFile fn `catch` error ("File not found: " ++ fn))
         c <- getInput
         setInput $ f ++ c
         return ""