diff options
| author | simonpj@microsoft.com <unknown> | 2010-09-23 10:59:01 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2010-09-23 10:59:01 +0000 |
| commit | 76349636abcb764e8ed3b9ae548730ad2d85abb2 (patch) | |
| tree | 7abe124fa8eb992b1b5c26448c6fbc8567b5c3c5 /compiler/ghci/RtClosureInspect.hs | |
| parent | 528db2ad98caf5067ebdadf424c6c816c3927dd4 (diff) | |
| download | haskell-76349636abcb764e8ed3b9ae548730ad2d85abb2.tar.gz | |
Remove use of lambda with a refutable pattern
Diffstat (limited to 'compiler/ghci/RtClosureInspect.hs')
| -rw-r--r-- | compiler/ghci/RtClosureInspect.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/ghci/RtClosureInspect.hs b/compiler/ghci/RtClosureInspect.hs index fa167e32ba..ef25ad5644 100644 --- a/compiler/ghci/RtClosureInspect.hs +++ b/compiler/ghci/RtClosureInspect.hs @@ -426,7 +426,7 @@ cPprTermBase y = . mapM (y (-1)) . subTerms) , ifTerm (\t -> isTyCon listTyCon (ty t) && subTerms t `lengthIs` 2) - (\ p Term{subTerms=[h,t]} -> doList p h t) + (\ p t -> doList p t) , ifTerm (isTyCon intTyCon . ty) (coerceShow$ \(a::Int)->a) , ifTerm (isTyCon charTyCon . ty) (coerceShow$ \(a::Char)->a) , ifTerm (isTyCon floatTyCon . ty) (coerceShow$ \(a::Float)->a) @@ -452,7 +452,7 @@ cPprTermBase y = coerceShow f _p = return . text . show . f . unsafeCoerce# . val --Note pprinting of list terms is not lazy - doList p h t = do + doList p (Term{subTerms=[h,t]}) = do let elems = h : getListTerms t isConsLast = not(termType(last elems) `coreEqType` termType h) print_elems <- mapM (y cons_prec) elems @@ -468,6 +468,7 @@ cPprTermBase y = getListTerms Term{subTerms=[]} = [] getListTerms t@Suspension{} = [t] getListTerms t = pprPanic "getListTerms" (ppr t) + doList _ _ = panic "doList" repPrim :: TyCon -> [Word] -> String |