Changeset 7854 for src/Pugs/Prim/Match.hs

Timestamp:

11/05/05 21:27:53 (3 years ago)

Author:

autrijus

Message:

* Accomodate Parrot trunk's PGE::Hs change (r9802)

to capture the PGE_String form in Matches.

Files:

• src/Pugs/Prim/Match.hs (modified) (1 diff)

src/Pugs/Prim/Match.hs

@@ -30 +30 @@
     rv  <- tryIO Nothing $ fmap Just (readIO $ decodeUTF8 pge)
     let matchToVal PGE_Fail = VMatch mkMatchFail
+        matchToVal (PGE_String str) = VStr str
         matchToVal (PGE_Array ms) = VList (map matchToVal ms)
         matchToVal (PGE_Match from to pos named) = VMatch $