voidlizard
/
suckless-conf
mirror of https://github.com/voidlizard/suckless-conf.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Eq, Ord instances for Syntax

This commit is contained in:
Dmitry Zuikov 2023-03-26 10:28:08 +03:00
parent 3fbf491a78
commit 04c432681d
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/Data/Config/Suckless/Parse/Megaparsec.hs
View File

@ -1,4 +1,5 @@
{-# Language ConstraintKinds #-} {-# Language ConstraintKinds #-}
{-# Language UndecidableInstances #-}
module Data.Config.Suckless.Parse.Megaparsec module Data.Config.Suckless.Parse.Megaparsec
( parseSyntax ( parseSyntax
, parseTop , parseTop
@ -42,6 +43,9 @@ type Parser r = Parsec () [Char] r
type ParseFail = ParseErrorBundle [Char] () type ParseFail = ParseErrorBundle [Char] ()
deriving instance Eq (Context MegaParsec) => Eq (Syntax MegaParsec)
deriving instance Ord (Context MegaParsec) => Ord (Syntax MegaParsec)
sc :: Parser () sc :: Parser ()
sc = do sc = do
L.space space1 lineComment empty L.space space1 lineComment empty

2
lib/Data/Config/Suckless/Syntax.hs
View File

@ -81,8 +81,6 @@ data Syntax c
| Literal (Context c) Literal | Literal (Context c) Literal
deriving stock (Generic) deriving stock (Generic)
deriving instance Eq (Context c) => Eq (Syntax c)
deriving instance Ord (Context c) => Ord (Syntax c)
instance HasContext c (Syntax c) where instance HasContext c (Syntax c) where