Commits

David Lazar committed b3fe4ad

Fix shadowing warning.

Comments (0)

Files changed (1)

src/Language/Haskell/Exts/Fresh.hs

 -- | @uniquify set prefix@ returns a String with the given prefix that is not
 -- contained in @set@.
 uniquify :: Set String -> String -> String
-uniquify set prefix = first unique choices
-    where first  p = head . filter p
+uniquify set prefix = find' unique choices
+    where find' p = head . filter p
           unique x = Set.notMember x set
           choices  = map (prefix ++) ("" : letters)