debugDoc :: SDoc -> CodeGen ()
debugDoc sdoc = do
  dflags <- getDynFlags
  when (verbosity dflags > 1) $
    liftIO . putStrLn $ showSDocDump dflags sdoc
debugDoc :: SDoc -> CodeGen ()
debugDoc sdoc = do
  dflags <- getDynFlags
  when (verbosity dflags > 1) $
    liftIO . putStrLn $ showSDocDump dflags sdoc
debugDoc sdoc = do
  dflags <- getDynFlags
  when (verbosity dflags > 1) $
    liftIO . putStrLn $ showSDocDump dflags sdoc