application and lits

appl

src/RLP/Syntax.hs

@@ -12,6 +12,9 @@ module Rlp.Syntax
     , VarId(..)
     , Pat(..)
     , Pat'
+    , Lit(..)
+    , Lit'
+    , Name
     )
     where
 ----------------------------------------------------------------------------------
@@ -90,6 +93,8 @@ data Lit b = IntL Int
            | ListL [RlpExpr b]
            deriving Show
 
+type Lit' = Lit Name
+
 -- instance HasLHS Alt Alt Pat Pat where
 --     _lhs = lens
 --         (\ (AltA p _) -> p)