Rakarake/churf
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix pretty printer

Browse source
This commit is contained in:
Martin Fredin 2023-04-27 18:59:16 +02:00
parent 072f2206e6
commit 22ffdffa5a
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/TypeChecker/TypeCheckerIr.hs
View file

@ -74,9 +74,8 @@ instance Print t => Print (Program' t) where
prt i (Program sc) = prt i sc prt i (Program sc) = prt i sc
instance Print t => Print (Bind' t) where instance Print t => Print (Bind' t) where
prt i (Bind sig@(name, _) parms rhs) = concatD prt i (Bind sig parms rhs) = concatD
[ prtSig sig [ prtSig sig
, prt i name
, prt i parms , prt i parms
, doc $ showString "=" , doc $ showString "="
, prt i rhs , prt i rhs
@ -88,7 +87,6 @@ prtSig (name, t) =
[ prt 0 name [ prt 0 name
, doc $ showString ":" , doc $ showString ":"
, prt 0 t , prt 0 t
, doc $ showString ";"
] ]
instance Print t => Print (ExpT' t) where instance Print t => Print (ExpT' t) where