Commit 5cc715b2 authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files

White space only

parent 7a7fdd38
......@@ -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 ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment