From c54247636527071a14a894b27901960eaea020bd Mon Sep 17 00:00:00 2001 From: Adam Wick Date: Sun, 17 Jul 2016 12:39:00 -0700 Subject: [PATCH] Tweak: get the types on value declarations printing right. --- src/Bang/AST/Declaration.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Bang/AST/Declaration.hs b/src/Bang/AST/Declaration.hs index 63e0013..02d8c7a 100644 --- a/src/Bang/AST/Declaration.hs +++ b/src/Bang/AST/Declaration.hs @@ -74,8 +74,8 @@ ppValueDeclaration vd = frees $+$ typedecl $+$ valuedecl text "free value variables: " <+> braces (hsep (punctuate comma (map ppName (_vdFreeValueVariables vd)))) typedecl - | Just dt <- _vdDeclaredType vd = - ppTypeDeclaration (TypeDeclaration (_vdName vd) (_vdLocation vd) dt) + | Just t <- _vdDeclaredType vd = + ppName (_vdName vd) <+> text "::" <+> ppType t | otherwise = empty valuedecl = ppName (_vdName vd) <+> text "=" <+> ppExpression (_vdValue vd)