Changeset 16414

Timestamp:

05/18/07 00:15:28 (18 months ago)

Author:

audreyt

Message:

* Pugs.AST.Pad: emptyPad is moved into .Internals.

Files:

• src/Pugs/AST/Pad.hs (modified) (2 diffs)

src/Pugs/AST/Pad.hs

@@ -1 +1 @@
 {-# OPTIONS_GHC -fglasgow-exts -fparr #-}
 module Pugs.AST.Pad (
-  mkPad, diffPads, unionPads, padKeys, filterPad, adjustPad, mergePadEntry, emptyPad,
+  mkPad, diffPads, unionPads, padKeys, filterPad, adjustPad, mergePadEntry,
   mergeLexPads, readMPad, writeMPad, appendMPad, modifyMPad, newMPad
 ) where
@@ -15 +15 @@
     mappend = unionPads
     mconcat = MkPad . Map.unionsWith mergePadEntry . map padEntries
-
-{-|
-An empty Pad with now symbols.
--}
-
-emptyPad :: Pad
-emptyPad = MkPad Map.empty
 
 {-|