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

Timestamp:

07/14/07 04:25:29 (17 months ago)

Author:

audreyt

Message:

* Thanks to HPC, continue to eliminate a whole lot of

can't-be-reached toplevel definitions:

Pugs.Monads:

tempVar

Pugs.Parser.Literal:

qInterpolateDelimiterMinimal
(and its associated data constructor, QB_Minimal)

Pugs.Parser.Operator:

optPreSyn, optSymOps, _STATE_START_RUN

Pugs.Parser.Types:

getCurrCharClass

Pugs.Parser:

_dummyParam

Pugs.Prim.Match:

matchFromMR

Pugs.Types:

addNode

Files:

• src/Pugs/Prim/Match.hs (modified) (2 diffs)

src/Pugs/Prim/Match.hs

@@ -2 +2 @@
 
 module Pugs.Prim.Match (
-    op2Match, rxSplit, rxSplit_n, matchFromMR, pkgParents, pkgParentClasses
+    op2Match, rxSplit, rxSplit_n, pkgParents, pkgParentClasses
 ) where
 import Pugs.Internals
@@ -91 +91 @@
     csBytes = encodeUTF8 csChars
 
-matchFromMR :: MatchResult Char -> Val
-matchFromMR mr = VMatch $ mkMatchOk 0 0 (decodeUTF8 all) subsMatch Map.empty
-    where
-    (all:subs) = elems $ mrSubs mr
-    subsMatch = [ VMatch $ mkMatchOk 0 0 (decodeUTF8 sub) [] Map.empty | sub <- subs ]
-
 -- Used in op2Match
 not_VRule :: Val -> Bool