debugState :: CodeGen ()
debugState = do
  dflags <- getDynFlags
  bindings <- getBindings
  when (verbosity dflags > 1) $
    debugDoc $ str "cgBindings: " <+> ppr bindings
debugState :: CodeGen ()
debugState = do
  dflags <- getDynFlags
  bindings <- getBindings
  when (verbosity dflags > 1) $
    debugDoc $ str "cgBindings: " <+> ppr bindings
debugState = do
  dflags <- getDynFlags
  bindings <- getBindings
  when (verbosity dflags > 1) $
    debugDoc $ str "cgBindings: " <+> ppr bindings