Skip to content
Snippets Groups Projects
Commit 781f9cae authored by Ian Lynagh's avatar Ian Lynagh
Browse files

More DynFlags + SDoc

parent b46f25ec
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
compiler/utils/Outputable.lhs
+ 3
− 3
View file @ 781f9cae
......@@ -363,10 +363,10 @@ printForC dflags handle doc =
Pretty.printDoc LeftMode handle
(runSDoc doc (initSDocContext' dflags (PprCode CStyle)))
printForAsm :: Handle -> SDoc -> IO ()
printForAsm handle doc =
printForAsm :: DynFlags -> Handle -> SDoc -> IO ()
printForAsm dflags handle doc =
Pretty.printDoc LeftMode handle
(runSDoc doc (initSDocContext (PprCode AsmStyle)))
(runSDoc doc (initSDocContext' dflags (PprCode AsmStyle)))
pprCode :: CodeStyle -> SDoc -> SDoc
pprCode cs d = withPprStyle (PprCode cs) d
......
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