Changeset 13494 for src/Pugs/Val

Timestamp:

09/20/06 13:29:34 (2 years ago)

Author:

audreyt

Message:

* Prettyprinting for signature default expressions.

(Doesn't prettyprint back to Perl6 yet.)

Files:

• src/Pugs/Val/Code.hs (modified) (1 diff)

src/Pugs/Val/Code.hs

@@ -170 +170 @@
     staticTypes = hsep $ map (text . Types.showType) $ p_types p
     defaultHint = if not isReq && not haveDefault then text "?" else empty
-    haveDefault = isJust $ unDefault $ p_default p
-    defaultVal  = if haveDefault then equals <+> text "{...}" else empty -- FIXME: pretty the exp, if we lift into Eval?
+    defaultExp  = fromJust .  unDefault $ p_default p
+    haveDefault = isJust . unDefault $ p_default p
+    defaultVal  = if haveDefault then equals <+> prettyExp defaultExp else empty
     traits      = sep [acc, ref, lazy, slots]
     unpacking   = case p_unpacking p of