-- | Makes a 'Doc' flush against the left margin.
flush :: Doc -> Doc
flush doc = Doc $ singleton $ Flush doc
flush :: Doc -> Doc
flush doc = Doc $ singleton $ Flush doc
flush doc = Doc $ singleton $ Flush doc