-- | Appends the given here document content to the current 'hereDoc'.
appendHereDoc :: MonadState PrintState m => ShowS -> m ()
appendHereDoc s = modify' (\(PrintState i h) -> PrintState i (h . s))
appendHereDoc :: MonadState PrintState m => ShowS -> m ()
appendHereDoc s = modify' (\(PrintState i h) -> PrintState i (h . s))
appendHereDoc s = modify' (\(PrintState i h) -> PrintState i (h . s))