Changeset 3372 for src/Pugs/AST/Internals.hs

Timestamp:

05/18/05 02:43:25 (4 years ago)

Author:

theorbtwo

svk:copy_cache_prev:

4945

Message:

More signatures, a few more haddocks.

Files:

• src/Pugs/AST/Internals.hs (modified) (2 diffs)

src/Pugs/AST/Internals.hs

@@ -1291 +1291 @@
     deriving (Show, Eq, Ord, Typeable)
 
+-- | A $/ object, the return of a rx match operation.
 data VMatch = MkMatch
     { matchOk           :: !VBool   -- success?
@@ -1301 +1302 @@
     deriving (Show, Eq, Ord, Typeable)
 
+-- | An empty failed match
+mkMatchFail :: VMatch
 mkMatchFail = MkMatch False 0 0 "" [] Map.empty
+
+-- | Makes a successful match
+mkMatchOk :: Int -> Int -> VStr -> VList -> VHash -> VMatch
 mkMatchOk   = MkMatch True