@@ -58,8 +58,10 @@ duplicateValues decls =
59 defsDups :: [Valid.Def] -> Either String [Valid.Def]
59 defsDups :: [Valid.Def] -> Either String [Valid.Def]
60 defsDups defs =
60 defsDups defs =
61− let varsIn (Valid.Definition pattern _ _) = Pattern.boundVarList pattern in
61+ let varsIn (Valid.Definition pattern _ _) =
62+ Pattern.boundVarList pattern
62− case dups $ concatMap varsIn defs of
64+ case dups (concatMap varsIn defs) of
63 [] -> Right defs
65 [] -> Right defs
64 name:_ -> Left name
66 name:_ -> Left name