Changeset 16421

Timestamp:

05/18/07 00:30:50 (18 months ago)

Author:

audreyt

Message:

* DrIFT.YAML: GHC 6.6 doesn't export the Any type, so we

disable the "seen/cleanSeen" cache in DrIFT.YAML now.

Location:

src

Files:

• DrIFT/YAML.hs (modified) (2 diffs)
• Pugs/Run.hs (modified) (1 diff)

src/DrIFT/YAML.hs

@@ -232 +232 @@
     fromYAMLElem e = fail $ "no parse: " ++ show e ++ ", expecting " ++ show (typeOf (undefined :: (a, b, c)))
 
+{-
 {-# NOINLINE seen #-}
 seen :: Hash.HashTable SYMID Any
@@ -240 +241 @@
     kvs <- Hash.toList seen
     mapM_ (Hash.delete seen . fst) kvs
+-}
 
 instance (Typeable a, YAML a) => YAML (TVar a) where

src/Pugs/Run.hs

@@ -277 +277 @@
         -- print "Loading yaml..."
         --(glob, ast) <- fromYAML yml
-        cleanSeen
+        -- cleanSeen
         MkCompUnit _ glob ast <- io $ fromYAML yml
         -- print "Loading done!"