printDoc :: SDoc -> CodeGen ()
printDoc sdoc = do
  dflags <- getDynFlags
  liftIO . putStrLn $ showSDocDump dflags sdoc
printDoc :: SDoc -> CodeGen ()
printDoc sdoc = do
  dflags <- getDynFlags
  liftIO . putStrLn $ showSDocDump dflags sdoc
printDoc sdoc = do
  dflags <- getDynFlags
  liftIO . putStrLn $ showSDocDump dflags sdoc