Commit 9ff16ede authored by Michael Hanus 's avatar Michael Hanus

Error output slightly improved

parent 68cddffc
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment