Changeset 17047 for src/Pugs/AST/Pad.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/Pad.hs (modified) (3 diffs)

src/Pugs/AST/Pad.hs

@@ -1 +1 @@
 {-# OPTIONS_GHC -fglasgow-exts -fparr #-}
 module Pugs.AST.Pad (
-  mkPad, diffPads, unionPads, padKeys, filterPad, adjustPad, mergePadEntry,
+  mkPad, unionPads, padKeys, filterPad, adjustPad, mergePadEntry,
   mergeLexPads, readMPad, writeMPad, appendMPad, modifyMPad, newMPad
 ) where
@@ -51 +51 @@
     return $ MkMPad (addressOf tvar) tvar
 
+{-
 {-|
 Return the difference between two 'Pad's.
@@ -62 +63 @@
     diffPadEntry x y | x == y    = Nothing
                      | otherwise = Just x
+-}
 
 {-|