Ignore:
Timestamp:
Apr 17, 2014, 6:20:11 PM (5 years ago)
Author:
cameron
Message:

Update for SparseCharSet?

File:
1 edited

Legend:

Unmodified
Added
Removed
  • proto/RE/Haskell/SparseCharSet.hs

    r3621 r3826  
    44
    55
    6 module SparseCharSet (CharSetItem(..), member, negateClass) where
     6module SparseCharSet (SparseCharClass, CharSetItem(..), elemCC, negateClass, insert1, insertRange) where
    77
    88import Data.Char
     
    2121
    2222-- Determine whether a character code is in a set
    23 member :: (CodePoint, [CharSetItem]) -> Bool
    24 member (c, []) = False
    25 member (c, CharRange(lo, hi):more)
     23elemCC :: (CodePoint, [CharSetItem]) -> Bool
     24elemCC (c, []) = False
     25elemCC (c, CharRange(lo, hi):more)
    2626  | c < lo  =  False
    27   | c > hi  = member(c, more)
     27  | c > hi  = elemCC(c, more)
    2828  | otherwise = True
    2929
Note: See TracChangeset for help on using the changeset viewer.