From 6694171b98b1dbcae2954f9b3e0cbc1ad9ae5abf Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ondr=CC=8Cej=20S=CC=8Cebek?= <ondras98@icloud.com>
Date: Thu, 3 Aug 2023 13:17:27 +0200
Subject: [PATCH] Remove List.singleton for GHC8

---
 src/Data/Text/Markdown.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Data/Text/Markdown.hs b/src/Data/Text/Markdown.hs
index 7f387e988..32bea9373 100644
--- 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