@@ -55,6 +55,9 @@ strlit = PTok.stringLiteral lexer
55chlit = PTok.charLiteral lexer
55chlit = PTok.charLiteral lexer
56lchar = lexeme.char
56lchar = lexeme.char
58+fixErrorMsg :: String -> [String] -> String
59+fixErrorMsg msg fixes = msg ++ ", possible fixes:\n" ++ (concat $ intersperse "\n\nor\n\n" fixes)
58-- Loading modules
61-- Loading modules
60loadModule :: FilePath -> Idris String
63loadModule :: FilePath -> Idris String