From 74c921729130b74498215d67b6b47dbd3527bd32 Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Tue, 7 Dec 2021 20:31:26 +0100
Subject: [PATCH] Use singleton function from base

---
 src/Quasar/Wayland/Protocol/TH.hs | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/src/Quasar/Wayland/Protocol/TH.hs b/src/Quasar/Wayland/Protocol/TH.hs
index 3d6c526..e421e3e 100644
--- a/src/Quasar/Wayland/Protocol/TH.hs
+++ b/src/Quasar/Wayland/Protocol/TH.hs
@@ -5,7 +5,7 @@ module Quasar.Wayland.Protocol.TH (
 import Control.Monad.STM
 import Control.Monad.Writer
 import Data.ByteString qualified as BS
-import Data.List (intersperse)
+import Data.List (intersperse, singleton)
 import Data.Void (absurd)
 import GHC.Records (getField)
 import Language.Haskell.TH
@@ -95,10 +95,6 @@ generateWaylandProcol protocolFile = do
 
 tellQ :: Q a -> WriterT [a] Q ()
 tellQ action = tell =<< lift (singleton <$> action)
-  where
-    -- TODO use from base (base-4.14.0.0)
-    singleton :: a -> [a]
-    singleton x = [x]
 
 tellQs :: Q [a] -> WriterT [a] Q ()
 tellQs = tell <=< lift
-- 
GitLab