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

wip

This commit is contained in:
Dmitry Zuikov 2023-02-07 21:18:48 +03:00
parent 55cc5f7cd4
commit a9f72e3213
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -12,7 +12,9 @@ module Data.Config.Suckless.Syntax
, IsLiteral(..) , IsLiteral(..)
, pattern SymbolVal , pattern SymbolVal
, pattern ListVal , pattern ListVal
, pattern LitVal , pattern LitIntVal
, pattern LitStrVal
, pattern LitBoolVal
) )
where where
@ -27,8 +29,15 @@ import Prettyprinter
pattern SymbolVal :: Id -> Syntax c pattern SymbolVal :: Id -> Syntax c
pattern SymbolVal v <- Symbol _ v pattern SymbolVal v <- Symbol _ v
pattern LitVal :: forall {c}. Id -> Syntax c -- pattern LitVal :: forall {c}. Id -> Li
pattern LitVal v <- Symbol _ v pattern LitIntVal :: forall {c}. Integer -> Syntax c
pattern LitIntVal v <- Literal _ (LitInt v)
pattern LitStrVal :: forall {c}. Text -> Syntax c
pattern LitStrVal v <- Literal _ (LitStr v)
pattern LitBoolVal :: forall {c}. Bool -> Syntax c
pattern LitBoolVal v <- Literal _ (LitBool v)
pattern ListVal :: forall {c}. [Syntax c] -> Syntax c pattern ListVal :: forall {c}. [Syntax c] -> Syntax c
pattern ListVal v <- List _ v pattern ListVal v <- List _ v