Changeset 21673 for src/Pugs/Class.hs

Timestamp:

08/01/08 13:56:05 (4 months ago)

Author:

audreyt

Message:

* Import Pugs 6.2.13.11 from Hackage into our source tree.
* Highlights:

• Much faster startup time
• Slightly faster compilation time (mostly due to refactored Pugs.AST.Internals)
• Portable-to-Win32 readline thanks to Haskeline

Files:

• src/Pugs/Class.hs (modified) (2 diffs)

src/Pugs/Class.hs

@@ -28 +28 @@
 import Pugs.AST.Eval
 import Control.Monad.Fix
-import qualified Data.Map as Map
+import qualified StringTable.AtomMap as AtomMap
 import qualified Data.Typeable as Typeable
 
@@ -173 +173 @@
     cast = (`MkMethodInvocation` CaptSub{ c_feeds = [::] }) . cast
 
-instance ((:>:) Call (ByteString, [Val], Map ID Val)) where
-    cast (meth, pos, named) = MkMethodInvocation (cast meth) CaptSub{ c_feeds = [: MkFeed (toP pos) (Map.map (\x -> [:x:]) named) :]}
+instance ((:>:) Call (ByteString, [Val], AtomMap Val)) where
+    cast (meth, pos, named) = MkMethodInvocation (cast meth) CaptSub
+        { c_feeds = [: MkFeed (toP pos) (AtomMap.map (\x -> [:x:]) named) :]}