module ParserCoreUtils where
+import Exception
import System.IO
data ParseResult a = OkP a | FailP String
getCoreModuleName :: FilePath -> IO String
getCoreModuleName fpath =
- catch (do
+ catchIO (do
h <- openFile fpath ReadMode
ls <- hGetContents h
let mo = findMod (words ls)