Tweak: get the types on value declarations printing right.

2016-07-17 12:39:00 -07:00
parent 15b4059163
commit c542476365
1 changed files with 2 additions and 2 deletions
--- 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)