msyds/rlp
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases 2 Wiki Activity

RlpExpr LetE Rec

Browse Source
This commit is contained in:
crumbtoo
2024-01-23 21:24:14 -07:00
parent 3d45e12676
commit 5ce11dfdd7
1 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/Rlp/Syntax.hs
View File

@@ -82,7 +82,7 @@ data Assoc = InfixL
data ConAlt = ConAlt ConId [Type] data ConAlt = ConAlt ConId [Type]
deriving Show deriving Show
data RlpExpr b = LetE [Bind b] (RlpExpr b) data RlpExpr b = LetE Rec [Bind b] (RlpExpr b)
| VarE VarId | VarE VarId
| ConE ConId | ConE ConId
| LamE [Pat b] (RlpExpr b) | LamE [Pat b] (RlpExpr b)
@@ -150,7 +150,7 @@ type RlpExprF' = RlpExprF Name
-- society if derivable Show1 -- society if derivable Show1
instance (Show b) => Show1 (RlpExprF b) where instance (Show b) => Show1 (RlpExprF b) where
liftShowsPrec sp _ p m = case m of liftShowsPrec sp _ p m = case m of
(LetEF bs e) -> showsBinaryWith showsPrec sp "LetEF" p bs e (LetEF r bs e) -> showsTernaryWith showsPrec showsPrec sp "LetEF" p r bs e
(VarEF n) -> showsUnaryWith showsPrec "VarEF" p n (VarEF n) -> showsUnaryWith showsPrec "VarEF" p n
(ConEF n) -> showsUnaryWith showsPrec "ConEF" p n (ConEF n) -> showsUnaryWith showsPrec "ConEF" p n
(LamEF bs e) -> showsBinaryWith showsPrec sp "LamEF" p bs e (LamEF bs e) -> showsBinaryWith showsPrec sp "LamEF" p bs e