Add blankLine from Stack project

commercialhaskell · Sep 22, 2023 · 420b141 · 420b141
1 parent eda8a7e
commit 420b141
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/ChangeLog.md b/ChangeLog.md
@@ -8,6 +8,7 @@
   exception.
 * Add `prettyGeneric` and `prettyWith` for greater flexibility with pretty
   logging.
+* Add `blankLine`.
 
 ## 0.1.6.0
 

diff --git a/src/RIO/PrettyPrint.hs b/src/RIO/PrettyPrint.hs
@@ -59,6 +59,7 @@ module RIO.PrettyPrint
   , displayMilliseconds
   , logLevelToStyle
     -- * Formatting utils
+  , blankLine
   , bulletedList
   , spacedBulletedList
   , mkBulletedList
@@ -220,6 +221,10 @@ wordDocs = map fromString . words
 flow :: String -> StyleDoc
 flow = fillSep . wordDocs
 
+-- | A blank line.
+blankLine :: StyleDoc
+blankLine = line <> line
+
 -- | @debug message action@ brackets any output of the specified @action@ with
 -- an initial and final @message@ at log level 'LevelDebug'. The initial message
 -- is prefixed with the label @Start:@. The final message is prefixed with