Changeset 17047 for src/Pugs/AST/Utils.hs

Timestamp:

07/14/07 04:45:22 (17 months ago)

Author:

audreyt

Message:

* Final batch of HPC-inspired toplevel removals:

Pugs.AST.Pads.diffPads
Pugs.AST.Utils.getMapIndex
Pugs.Internals.ID.hashList

(moved to a local definition in Pugs.Parser.Charnames)

Pugs.Lexer.balanced
Pugs.Lexer.ruleWhiteSpaceLine (and ruleEndOfLine)

Files:

• src/Pugs/AST/Utils.hs (modified) (1 diff)

src/Pugs/AST/Utils.hs

@@ -33 +33 @@
             Nothing    -> errIndex def idx
         (a:_) -> return a
-
-getMapIndex :: Int -> Maybe a -> Eval (IntMap a) -> Maybe (Eval b) -> Eval a
-getMapIndex idx def doList _ | idx < 0 = do
-    -- first, check if the list is at least abs(idx) long.
-    list <- doList
-    if IntMap.member (abs (idx+1)) list
-        then return . fromJust
-            $ IntMap.lookup (idx `mod` (IntMap.size list)) list
-        else errIndex def idx
--- now we are all positive; either extend or return
-getMapIndex idx def doList ext = do
-    list <- doList
-    case IntMap.lookup idx list of
-        Just a  -> return a
-        Nothing -> case ext of
-            Just doExt -> do { doExt ; getMapIndex idx def doList Nothing }
-            Nothing    -> errIndex def idx
 
 {-|