Changeset 13015 for src/Pugs/Val

Timestamp:

09/04/06 06:59:13 (2 years ago)

Author:

audreyt

Message:

* Parameter unpacking, courtesy of gaal++

Files:

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

src/Pugs/Val/Code.hs

@@ -103 +103 @@
     , p_constraints :: [Code]        -- ^ Dynamic pieces of runtime-mood
                                      --   E.g. where {...} above
-    , p_unpacking   :: Maybe PureSig -- ^ E.g. BinTree $t (Left $l, Right $r)
+    , p_unpacking   :: Maybe Val -- XXX: the next line is correct, but how to do Val -> PureSig in Parser?
+    --, p_unpacking   :: Maybe PureSig -- ^ E.g. BinTree $t (Left $l, Right $r)
     , p_default     :: ParamDefault  -- ^ E.g. $answer? = 42
     , p_label       :: ID            -- ^ The external name for the param ('m' above)