Error output slightly improved

9ff16ede · Michael Hanus · 68cddffc · 9ff16ede
Commit 9ff16ede authored Apr 25, 2019 by Michael Hanus
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 1 deletion

src/Main/Flat2I.curry src/Main/Flat2I.curry +4 -1

No files found.
--- a/src/Main/Flat2I.curry
+++ b/src/Main/Flat2I.curry
@@ -48,7 +48,10 @@ pmain args = do
      rawRes <- lookupTypeDepsFileRaw rawPaths modname
      filename <- maybe (do
          cres <- lookupTypeDepsFile curryStylePaths modname
-          maybe (error "Cannot find ICurry type dependencies file") return cres)
+          maybe (error $ "Cannot find ICurry type dependencies file of " ++
+                         modname)
+                return
+                cres)
        return rawRes
      readFile filename >>= return . read