Remove List.singleton for GHC8

swarm-game · Aug 3, 2023 · 6694171 · 6694171
1 parent abd488e
commit 6694171
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Data/Text/Markdown.hs b/src/Data/Text/Markdown.hs
@@ -61,7 +61,7 @@ mapP :: (Node c -> Node c) -> Paragraph c -> Paragraph c
 mapP f (Paragraph ns) = Paragraph (map f ns)
 
 pureP :: Node c -> Paragraph c
-pureP = Paragraph . List.singleton
+pureP = Paragraph . (: [])
 
 -- | Inline leaf nodes.
 --
@@ -115,7 +115,7 @@ instance Mark.IsInline (Paragraph Text) where
   rawInline (Mark.Format f) = pureP . LeafRaw (T.unpack f)
 
 instance Mark.IsBlock (Paragraph Text) (Document Text) where
-  paragraph = Document . List.singleton
+  paragraph = Document . (: [])
   plain = Mark.paragraph
   thematicBreak = mempty
   blockQuote (Document ns) = Document $ map Mark.emph ns