Fixed the printing of TypeCheckerIr
This commit is contained in:
parent
c37db41431
commit
9952eb0279
1 changed files with 1 additions and 1 deletions
|
|
@ -86,7 +86,7 @@ data Bind = Bind Id [Id] ExpT
|
|||
deriving (C.Eq, C.Ord, C.Show, C.Read)
|
||||
|
||||
instance Print Ident where
|
||||
prt _ (Ident str) = prt 0 str
|
||||
prt _ (Ident str) = doc . showString $ str
|
||||
|
||||
instance Print [Def] where
|
||||
prt _ [] = concatD []
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue