diff options
| author | simonpj@microsoft.com <unknown> | 2009-05-28 16:47:27 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2009-05-28 16:47:27 +0000 |
| commit | 5cc715b218c2da096055a38a453054cbe0b676c0 (patch) | |
| tree | e70a2b8513ece42c95f948937cf67a0c076ec849 /compiler | |
| parent | 7a7fdd38e46cb337b21afbdc20bf2ab645838a58 (diff) | |
| download | haskell-5cc715b218c2da096055a38a453054cbe0b676c0.tar.gz | |
White space only
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/typecheck/TcRnMonad.lhs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/typecheck/TcRnMonad.lhs b/compiler/typecheck/TcRnMonad.lhs index ca11d179de..88de1ca8fd 100644 --- a/compiler/typecheck/TcRnMonad.lhs +++ b/compiler/typecheck/TcRnMonad.lhs @@ -366,9 +366,9 @@ traceOptTcRn flag doc = ifOptM flag $ do ; dumpTcRn real_doc } dumpTcRn :: SDoc -> TcRn () -dumpTcRn doc = do { rdr_env <- getGlobalRdrEnv ; - dflags <- getDOpts ; - liftIO (printForUser stderr (mkPrintUnqualified dflags rdr_env) doc) } +dumpTcRn doc = do { rdr_env <- getGlobalRdrEnv + ; dflags <- getDOpts + ; liftIO (printForUser stderr (mkPrintUnqualified dflags rdr_env) doc) } debugDumpTcRn :: SDoc -> TcRn () debugDumpTcRn doc | opt_NoDebugOutput = return () |