Changeset 17047 for src/Pugs/Parser

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/Parser/Charnames.hs (modified) (2 diffs)

src/Pugs/Parser/Charnames.hs

@@ -23 +23 @@
 
 import qualified Data.HashTable as H
-import UTF8 (unsafePackAddress)
+import UTF8 (unsafePackAddress, hash)
 
 -- If we don't have Perl 5, support for names in the 0x00 - 0xFF range only.
@@ -290 +290 @@
     , (unsafePackAddress 35 "LATIN SMALL LETTER Y WITH DIAERESIS"#, 0x00FF)
     ]
+    where
+    hashList :: [(ByteString, a)] -> IO (H.HashTable ByteString a)
+    hashList = H.fromList hash
+
 #endif