parseFile :: FilePath -> IO CoreProgram
parseFile f = either throw id . doParseProgram f <$> readFile f
parseFile :: FilePath -> IO CoreProgram
parseFile f = either throw id . doParseProgram f <$> readFile f
parseFile f = either throw id . doParseProgram f <$> readFile f