Changeset 17047 for src/Pugs/Internals/ID.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/Internals/ID.hs (modified) (2 diffs)

src/Pugs/Internals/ID.hs

@@ -2 +2 @@
 
 module Pugs.Internals.ID (
-    ID(..), bufToID,
-    hashNew, hashList,
+    ID(..), bufToID, hashNew,
     __, (+++), nullID, 
 ) where
@@ -76 +75 @@
 hashNew = H.new (==) (UTF8.hash)
 
-{-# INLINE hashList #-}
-hashList :: [(ByteString, a)] -> IO (H.HashTable ByteString a)
-hashList = H.fromList (UTF8.hash)
-
 {-# NOINLINE _BufToID #-}
 _BufToID :: H.HashTable ByteString ID