printBindings :: CodeGen ()
printBindings = do
  bindings <- getBindings
  debugDoc $ str "printBindings" <+> ppr bindings
printBindings :: CodeGen ()
printBindings = do
  bindings <- getBindings
  debugDoc $ str "printBindings" <+> ppr bindings
printBindings = do
  bindings <- getBindings
  debugDoc $ str "printBindings" <+> ppr bindings