Changeset 7854

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.

Location:

src/Pugs

Files:

• Prim/Match.hs (modified) (1 diff)
• Types.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 $

src/Pugs/Types.hs

@@ -153 +153 @@
     = PGE_Match !Int !Int ![MatchPGE] ![(VStr, MatchPGE)]
     | PGE_Array ![MatchPGE]
+    | PGE_String !String
     | PGE_Fail
     deriving (Show, Eq, Ord, Read, Typeable)