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 " ++
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