projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 1996-05-06 11:01:29 by partain]
[ghc-hetmet.git]
/
ghc
/
compiler
/
reader
/
PrefixToHs.lhs
diff --git
a/ghc/compiler/reader/PrefixToHs.lhs
b/ghc/compiler/reader/PrefixToHs.lhs
index
033ed41
..
c638ca2
100644
(file)
--- 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 HsPragmas ( noGenPragmas, noClassOpPragmas )
import SrcLoc ( mkSrcLoc2 )
-import Util ( panic, assertPanic )
+import Util ( mapAndUnzip, panic, assertPanic )
\end{code}
%************************************************************************
\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
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
-- ToDo: Check for consistent srcfun and infixdef
get_mdef (RdrMatch_NoGuard _ sfun pat _ _) = get_pdef pat