-- | A carriage return.  Does nothing if we're at the beginning of
-- a line; otherwise inserts a newline.
cr :: Doc
cr = Doc $ singleton CarriageReturn
cr :: Doc
cr = Doc $ singleton CarriageReturn
cr = Doc $ singleton CarriageReturn