debug :: String -> CodeGen ()
debug msg = do
  dflags <- getDynFlags
  when (verbosity dflags > 1) $
    liftIO $ putStrLn msg
debug :: String -> CodeGen ()
debug msg = do
  dflags <- getDynFlags
  when (verbosity dflags > 1) $
    liftIO $ putStrLn msg
debug msg = do
  dflags <- getDynFlags
  when (verbosity dflags > 1) $
    liftIO $ putStrLn msg