Browse Source

better error printout

Pat Hickey 9 years ago
parent
commit
95e0aa0e70
1 changed files with 2 additions and 1 deletions
  1. 2 1
      src/Gidl.hs

+ 2 - 1
src/Gidl.hs

@@ -126,7 +126,8 @@ run = do
   opts <- parseOpts args
   idl <- readFile (idlpath opts)
   case parseDecls idl of
-    Left e -> putStrLn e >> exitFailure
+    Left e -> putStrLn ("Error parsing " ++ (idlpath opts) ++ ": " ++ e)
+              >> exitFailure
     Right (te, ie) -> do
       when (debug opts) $ do
         putStrLn (ppShow te)