MasseR/buuka
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Do GADT instead

Browse Source
This commit is contained in:
Mats Rauhala 2021-01-03 00:14:52 +02:00
parent 4112ed2aeb
commit 9048581ea1
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Data/Query.hs
View File

@ -28,10 +28,10 @@ data Field a where
Url :: Field String Url :: Field String
Title :: Field String Title :: Field String
data QueryF f data QueryF f where
= forall a. StartsWith (Field a) a StartsWith :: Field a -> a -> QueryF f
| forall a. EndsWith (Field a) a EndsWith :: Field a -> a -> QueryF f
| And f f And :: f -> f -> QueryF f
deriving instance Functor QueryF deriving instance Functor QueryF