[get rid of some calls to 'head'
John Meacham <john@repetae.net>**20051205145223] hunk ./E/FromHs.hs 479
-                let gps = [ (p,[ (ps,e) |  (_:ps,e) <- xs ]) | (p,xs) <- sortGroupUnderF (head . fst) ps]
+                let gps = [ (p,[ (ps,e) |  (_:ps,e) <- xs ]) | (p,xs) <- sortGroupUnderF ((\ (x:_) -> x) . fst) ps]
hunk ./E/FromHs.hs 495
-                let gps = [ (p,[ (ps,e) |  (_:ps,e) <- xs ]) | (p,xs) <- sortGroupUnderF (head . fst) ps]
+                let gps = [ (p,[ (ps,e) |  (_:ps,e) <- xs ]) | (p,xs) <- sortGroupUnderF ((\ (x:_) -> x) . fst) ps]
hunk ./E/FromHs.hs 504
-                let gps =  sortGroupUnderF (hsPatName . head . fst) ps
+                let gps =  sortGroupUnderF (hsPatName . (\ (x:_) -> x) . fst) ps
hunk ./E/FromHs.hs 506
-                        let spats = hsPatPats $ head $ fst (head ps)
+                        let spats = hsPatPats $ (\ (x:_) -> x) $ fst ((\ (x:_) -> x) ps)
hunk ./E/FromHs.hs 519
-            patternHeads = map (head . fst) ps
-        patternGroups = groupUnder (isStrictPat . head . fst) ps
+            patternHeads = map ((\ (x:_) -> x) . fst) ps
+        patternGroups = groupUnder (isStrictPat . (\ (x:_) -> x) . fst) ps
hunk ./Name/Name.hs 61
-    where x = head (hsIdentString . hsNameIdent  $ name)
+    where (x:_) = (hsIdentString . hsNameIdent  $ name)
hunk ./Name/Name.hs 65
-    where x = head (hsIdentString . hsNameIdent  $ name)
+    where (x:_) = (hsIdentString . hsNameIdent  $ name)