diff options
| author | David Terei <davidterei@gmail.com> | 2011-08-24 18:32:56 -0700 |
|---|---|---|
| committer | David Terei <davidterei@gmail.com> | 2011-08-24 18:33:25 -0700 |
| commit | 3108accd634a521b25471df19f063c2061d6d3ee (patch) | |
| tree | f8929a4ebdd90442f3baba19731b66285e30dd54 /compiler/ghci/Debugger.hs | |
| parent | 3d886b2db7e6ade5622feb3f00f4bcc9ed0d8bbb (diff) | |
| download | haskell-3108accd634a521b25471df19f063c2061d6d3ee.tar.gz | |
Formatting fixes
Diffstat (limited to 'compiler/ghci/Debugger.hs')
| -rw-r--r-- | compiler/ghci/Debugger.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/compiler/ghci/Debugger.hs b/compiler/ghci/Debugger.hs index 55ac4c0b18..d27aedb960 100644 --- a/compiler/ghci/Debugger.hs +++ b/compiler/ghci/Debugger.hs @@ -165,13 +165,12 @@ showTerm term = do expr = "show " ++ showSDoc (ppr bname) _ <- GHC.setSessionDynFlags dflags{log_action=noop_log} txt_ <- withExtendedLinkEnv [(bname, val)] - (GHC.compileExpr expr) + (GHC.compileExpr expr) let myprec = 10 -- application precedence. TODO Infix constructors let txt = unsafeCoerce# txt_ if not (null txt) then - return $ Just$ cparen (prec >= myprec && - needsParens txt) - (text txt) + return $ Just $ cparen (prec >= myprec && needsParens txt) + (text txt) else return Nothing `gfinally` do setSession hsc_env |