Changeset 15443 for src/Pugs/Meta

Timestamp:

03/04/07 14:47:38 (21 months ago)

Author:

audreyt

Message:

* Try making old-land Val Typeable in a -boot file

to avoid most of the circularity. This may not work in 6.6 -- needs test.

Files:

• src/Pugs/Meta/Perl5.hs (modified) (2 diffs)

src/Pugs/Meta/Perl5.hs

@@ -8 +8 @@
 import Data.Typeable (Typeable)
 import qualified Data.Map as Map
-import {-# SOURCE #-} Pugs.AST.Internals (envContext, anyToVal)
+import {-# SOURCE #-} Pugs.AST.Internals (envContext, anyToVal, anyFromVal)
 import Pugs.Types
 
@@ -26 +26 @@
         | Just x' <- fromTypeable x = liftIO . vintToSV $ (cast :: PureInt -> Integer)    x'
         | Just x' <- fromTypeable x = liftIO . vnumToSV $ (cast :: PureNum -> Double)     x'
+        | Just x' <- fromTypeable x = anyFromVal x'
         | otherwise                 = fail $ "Cannot coerce to SV: " ++ show (typeOf x)