diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2011-11-10 20:00:52 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2011-11-10 20:00:52 +0000 |
| commit | 17e9e851bac1cddb52ba822433e47d90e33bec77 (patch) | |
| tree | 8d7b7e2b263f1a2fbe5be36fc3086ebc796aafbd /compiler/deSugar/DsUtils.lhs | |
| parent | f96db3ca8a7c83cc3da242fad761fb05543068f6 (diff) | |
| parent | fd742437b9e5933da145aea1e80766990c649a15 (diff) | |
| download | haskell-17e9e851bac1cddb52ba822433e47d90e33bec77.tar.gz | |
Merge branch 'master' of http://darcs.haskell.org/ghc
Diffstat (limited to 'compiler/deSugar/DsUtils.lhs')
| -rw-r--r-- | compiler/deSugar/DsUtils.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/deSugar/DsUtils.lhs b/compiler/deSugar/DsUtils.lhs index 13994757f8..a394a0f5de 100644 --- a/compiler/deSugar/DsUtils.lhs +++ b/compiler/deSugar/DsUtils.lhs @@ -391,7 +391,7 @@ mkCoAlgCaseMatchResult var ty match_alts isPArrFakeAlts [] = panic "DsUtils: unexpectedly found an empty list of PArr fake alternatives" -- mk_parrCase fail = do - lengthP <- dsLookupDPHId lengthPName + lengthP <- dsDPHBuiltin lengthPVar alt <- unboxAlt return (mkWildCase (len lengthP) intTy ty [alt]) where @@ -403,7 +403,7 @@ mkCoAlgCaseMatchResult var ty match_alts -- unboxAlt = do l <- newSysLocalDs intPrimTy - indexP <- dsLookupDPHId indexPName + indexP <- dsDPHBuiltin indexPVar alts <- mapM (mkAlt indexP) sorted_alts return (DataAlt intDataCon, [l], mkWildCase (Var l) intPrimTy ty (dft : alts)) where |