diff options
| author | Pepe Iborra <mnislaih@gmail.com> | 2007-11-14 23:16:01 +0000 |
|---|---|---|
| committer | Pepe Iborra <mnislaih@gmail.com> | 2007-11-14 23:16:01 +0000 |
| commit | 8bbebfe661bdc976965718a2a489515c4929a03f (patch) | |
| tree | 168b5cda653ff358f9cc292e604af388de60b024 /compiler/ghci/RtClosureInspect.hs | |
| parent | d02f75971b43e9041bb2abac523b6a282e45ebde (diff) | |
| download | haskell-8bbebfe661bdc976965718a2a489515c4929a03f.tar.gz | |
Try to manage the size of the text rendered for ':show bindings'
Diffstat (limited to 'compiler/ghci/RtClosureInspect.hs')
| -rw-r--r-- | compiler/ghci/RtClosureInspect.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/ghci/RtClosureInspect.hs b/compiler/ghci/RtClosureInspect.hs index 9b49b5c69c..9c2d225d41 100644 --- a/compiler/ghci/RtClosureInspect.hs +++ b/compiler/ghci/RtClosureInspect.hs @@ -440,7 +440,7 @@ cPprTermBase y = coerceShow f _p = return . text . show . f . unsafeCoerce# . val - --TODO pprinting of list terms is not lazy + --NOTE pprinting of list terms is not lazy doList p h t = do let elems = h : getListTerms t isConsLast = termType(last elems) /= termType h |