Fixed the printing of TypeCheckerIr

This commit is contained in:
Samuel Hammersberg 2023-03-26 21:10:20 +02:00
parent c37db41431
commit 9952eb0279

View file

@ -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 []