From 1f3cc7e4f988a0e102c77f580c8407448a9a1161 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Fri, 17 May 2024 06:23:23 +0300
Subject: [PATCH] Data instance

---
 lib/Data/Config/Suckless/Syntax.hs        | 4 ++--
 test/Data/Config/Suckless/KeyValueSpec.hs | 1 -
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/lib/Data/Config/Suckless/Syntax.hs b/lib/Data/Config/Suckless/Syntax.hs
index 3c30630..40ca1c0 100644
--- a/lib/Data/Config/Suckless/Syntax.hs
+++ b/lib/Data/Config/Suckless/Syntax.hs
@@ -113,7 +113,7 @@ data Syntax c
   = List    (Context c) [Syntax c]
   | Symbol  (Context c) Id
   | Literal (Context c) Literal
-  deriving stock (Generic)
+  deriving stock (Generic,Typeable)
 
 
 instance Eq (Syntax c) where
@@ -123,7 +123,7 @@ instance Eq (Syntax c) where
   (==) _ _ = False
 
 deriving instance (Data (Context ())) => Data (Syntax ())
--- deriving instance (Data (Context ())) => Data (Syntax ())
+deriving instance (Data (Context C)) => Data (Syntax C)
 
 instance Pretty (Syntax c) where
   pretty (Literal _ ast) = pretty ast
diff --git a/test/Data/Config/Suckless/KeyValueSpec.hs b/test/Data/Config/Suckless/KeyValueSpec.hs
index dc40a5e..be1543f 100644
--- a/test/Data/Config/Suckless/KeyValueSpec.hs
+++ b/test/Data/Config/Suckless/KeyValueSpec.hs
@@ -20,7 +20,6 @@ import qualified Data.Set as Set
 import Prettyprinter
 import Data.Aeson
 import Text.InterpolatedString.Perl6 (qc,q)
-import Control.Monad.Identity
 import Test.Hspec