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 ...@@ -366,9 +366,9 @@ traceOptTcRn flag doc = ifOptM flag $ do
; dumpTcRn real_doc } ; dumpTcRn real_doc }
dumpTcRn :: SDoc -> TcRn () dumpTcRn :: SDoc -> TcRn ()
dumpTcRn doc = do { rdr_env <- getGlobalRdrEnv ; dumpTcRn doc = do { rdr_env <- getGlobalRdrEnv
dflags <- getDOpts ; ; dflags <- getDOpts
liftIO (printForUser stderr (mkPrintUnqualified dflags rdr_env) doc) } ; liftIO (printForUser stderr (mkPrintUnqualified dflags rdr_env) doc) }
debugDumpTcRn :: SDoc -> TcRn () debugDumpTcRn :: SDoc -> TcRn ()
debugDumpTcRn doc | opt_NoDebugOutput = return () 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