Fix more warnings

[ghc-base.git] / GHC / Exts.hs

diff --git a/GHC/Exts.hs b/GHC/Exts.hs
index bc36771..9bdf128 100644 (file)
--- a/GHC/Exts.hs
+++ b/GHC/Exts.hs
@@ -92,7 +92,7 @@ groupWith :: Ord b => (a -> b) -> [a] -> [[a]]
 groupWith f xs = build (\c n -> groupByFB c n (\x y -> f x == f y) (sortWith f xs))
 
 groupByFB :: ([a] -> lst -> lst) -> lst -> (a -> a -> Bool) -> [a] -> lst
-groupByFB c n eq xs = groupByFBCore xs
+groupByFB c n eq xs0 = groupByFBCore xs0
   where groupByFBCore [] = n
         groupByFBCore (x:xs) = c (x:ys) (groupByFBCore zs)
             where (ys, zs) = span (eq x) xs