@@ -39,8 +39,8 @@ duplicates defs =
39 dups = map head . filter ((>1) . length) . List.group
39 dups = map head . filter ((>1) . length) . List.group
41 msg = "Syntax Error: There can only be one "
41 msg = "Syntax Error: There can only be one "
42− defMsg x = msg ++ " definition of '" ++ x ++ "'."
42+ defMsg x = msg ++ "definition of '" ++ x ++ "'."
43− annMsg x = msg ++ " type annotation for '" ++ x ++ "'."
43+ annMsg x = msg ++ "type annotation for '" ++ x ++ "'."
46badOrder :: [Def t v] -> [String]
46badOrder :: [Def t v] -> [String]