rlp TH

2024-02-04 19:19:37 -07:00
parent 0fc82f3fa8
commit b84992787c
6 changed files with 54 additions and 4 deletions
--- a/src/Rlp/Syntax.hs
+++ b/src/Rlp/Syntax.hs
@@ -51,6 +51,7 @@ import Data.Functor.Foldable.TH     (makeBaseFunctor)
 import Data.Functor.Classes
 import Data.Functor.Identity
 import Data.Kind                    (Type)
+import Language.Haskell.TH.Syntax   (Lift)
 import Lens.Micro
 import Lens.Micro.TH
 import Core.Syntax                  hiding (Lit, Type, Binding, Binding')
@@ -156,7 +157,7 @@ type Decl' p = XRec p (Decl p)
 data Assoc = InfixL
           | InfixR
           | Infix
-           deriving (Show)
+           deriving (Show, Lift)

 data ConAlt p = ConAlt (IdP p) [RlpType' p]