projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
3ad3113
)
wibble
author
Pepe Iborra
<mnislaih@gmail.com>
Wed, 14 Nov 2007 23:33:56 +0000
(23:33 +0000)
committer
Pepe Iborra
<mnislaih@gmail.com>
Wed, 14 Nov 2007 23:33:56 +0000
(23:33 +0000)
compiler/ghci/RtClosureInspect.hs
patch
|
blob
|
history
diff --git
a/compiler/ghci/RtClosureInspect.hs
b/compiler/ghci/RtClosureInspect.hs
index
9c2d225
..
dae9260
100644
(file)
--- a/
compiler/ghci/RtClosureInspect.hs
+++ b/
compiler/ghci/RtClosureInspect.hs
@@
-450,13
+450,13
@@
cPprTermBase y =
. pprDeeperList fsep
. punctuate (space<>colon)
$ print_elems
- else brackets (pprDeeperList fsep$
+ else brackets (pprDeeperList fcat$
punctuate comma print_elems)
where Just a /= Just b = not (a `coreEqType` b)
_ /= _ = True
getListTerms Term{subTerms=[h,t]} = h : getListTerms t
- getListTerms Term{subTerms=[]} = []
+ getListTerms Term{subTerms=[]} = []
getListTerms t@Suspension{} = [t]
getListTerms t = pprPanic "getListTerms" (ppr t)