-
-
Save gnumonik/51b29cb694a8e19052f3613b8cc3fcfa to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
mkFieldParsers2 :: Name -> ExpQ | |
mkFieldParsers2 name = do | |
TyConI dec <- reify name | |
case dec of | |
DataD _c _n _bnd _k dCons _ -> case getSomeParser (ConT _n) of | |
Just aParser -> [| aParser |] -- No lift instance error |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment