kitten i'll be honest mommy's about to kill herself

src/Rlp/Syntax.hs

@@ -5,6 +5,8 @@
 {-# LANGUAGE OverloadedStrings, PatternSynonyms #-}
 module Rlp.Syntax
     ( RlpModule(..)
+    , RlpProgram(..)
+    , RlpProgram'
     , rlpmodName
     , rlpmodProgram
     , RlpExpr(..)
@@ -54,6 +56,8 @@ data RlpModule b = RlpModule
 
 newtype RlpProgram b = RlpProgram [Decl RlpExpr b]
 
+type RlpProgram' = RlpProgram Name
+
 -- | The @e@ parameter is used for partial results. When parsing an input, we
 -- first parse all top-level declarations in order to extract infix[lr]
 -- declarations. This process yields a @[Decl (Const Text) Name]@, where @Const