@@ -39,7 +39,7 @@ toHint :: Error -> String
3939toHint err =
4040 case err of
4141 Parse messages ->
42− error "TODO" messages
42+ unlines (map parseErrorHint messages)
4343
4444 InfixDuplicate opName ->
4545 "The infix declarations for " ++ operator ++ " must be removed.\n\n"
@@ -126,3 +126,19 @@ unboundTypeVars typeName tvar tvars revisedDeclaration =
126126indent :: String -> String
127127indent string =
128128 List.intercalate "\n" (map (" " ++ ) (lines string))
129+
130+
131+parseErrorHint :: Parsec.Message -> String
132+parseErrorHint message =
133+ case message of
134+ Parsec.SysUnExpect msg ->
135+ "SysUnExpect: " ++ msg
136+
137+ Parsec.UnExpect msg ->
138+ "UnExpect: " ++ msg
139+
140+ Parsec.Expect msg ->
141+ "UnExpect: " ++ msg
142+
143+ Parsec.Message msg ->
144+ "UnExpect: " ++ msg