Introduce sectionSeparator for use in clients

haskell · Apr 19, 2019 · 3004608 · 3004608
1 parent 55196c1
commit 3004608
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/haskell-lsp-types/src/Language/Haskell/LSP/Types/MarkupContent.hs b/haskell-lsp-types/src/Language/Haskell/LSP/Types/MarkupContent.hs
@@ -138,6 +138,12 @@ unmarkedUpContent str = MarkupContent MkPlainText str
 
 -- ---------------------------------------------------------------------
 
+-- | Markdown for a section separator in Markdown, being a horizontal line
+sectionSeparator :: Text
+sectionSeparator = "*\t*\t*\n"
+
+-- ---------------------------------------------------------------------
+
 #if __GLASGOW_HASKELL__ >= 804
 instance Semigroup MarkupContent where
   (<>) = mappend