goofy

src/RLP/Syntax.hs

@@ -5,6 +5,7 @@
 {-# LANGUAGE OverloadedStrings #-}
 module Rlp.Syntax
     ( RlpExpr(..)
+    , RlpExpr'
     , RlpExprF(..)
     , RlpExprF'
     , Decl(..)
@@ -61,6 +62,8 @@ data RlpExpr b = LetE  [Bind b] (RlpExpr b)
                | LitE  (Lit b)
                deriving Show
 
+type RlpExpr' = RlpExpr Name
+
 -- do we want guards?
 data Alt b = AltA (Pat b) (RlpExpr b)
                deriving Show