X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Freader%2FPrefixToHs.lhs;h=c638ca2f52393641fcd11beb3e189de6790a7a1c;hb=68afb16743cafd5b7495771d359891c6dfc5a186;hp=033ed415f3faff21d91fbf61d71cb6d3dc0f3a9d;hpb=3990d44447b6c38a2effd68beb50da459dfd19fc;p=ghc-hetmet.git

diff --git a/ghc/compiler/reader/PrefixToHs.lhs b/ghc/compiler/reader/PrefixToHs.lhs
index 033ed41..c638ca2 100644
--- a/ghc/compiler/reader/PrefixToHs.lhs
+++ b/ghc/compiler/reader/PrefixToHs.lhs
@@ -28,7 +28,7 @@ import RdrHsSyn
 import HsPragmas	( noGenPragmas, noClassOpPragmas )
 
 import SrcLoc		( mkSrcLoc2 )
-import Util		( panic, assertPanic )
+import Util		( mapAndUnzip, panic, assertPanic )
 \end{code}
 
 %************************************************************************
@@ -154,7 +154,7 @@ cvFunMonoBind :: SrcFile -> [RdrMatch] -> (RdrName {-VarName-}, Bool {-InfixDefn
 cvFunMonoBind sf matches
   = (head srcfuns, head infixdefs, cvMatches sf False matches)
   where
-    (srcfuns, infixdefs) = unzip (map get_mdef matches)
+    (srcfuns, infixdefs) = mapAndUnzip get_mdef matches
     -- ToDo: Check for consistent srcfun and infixdef
 
     get_mdef (RdrMatch_NoGuard _ sfun pat _ _) = get_pdef pat