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

remove unnecessary comment

Browse Source
This commit is contained in:
crumbtoo
2024-02-08 12:13:40 -07:00
parent 1c3286f047
commit 8a94288e5a
1 changed files with 0 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/Core/Syntax.hs
View File

@@ -279,15 +279,6 @@ instance (Pretty b) => Pretty (Expr b) where
"case" <+> pretty e <+> "of" "case" <+> pretty e <+> "of"
$$ nest 2 (explicitLayout as) $$ nest 2 (explicitLayout as)
{-
x = pretty $ desugarRlpProg [rlpProg|
main = 3
data B = T | F
|]
-}
instance (Pretty b) => Pretty (Alter b) where instance (Pretty b) => Pretty (Alter b) where
pretty (Alter c as e) = pretty (Alter c as e) =
hsep [pretty c, hsep (pretty <$> as), "->", pretty e] hsep [pretty c, hsep (pretty <$> as), "->", pretty e]