Changeset 12461 for src/Pugs/Val

Timestamp:

08/19/06 15:41:50 (2 years ago)

Author:

gaal

Message:

* WIP towards Capture parsing:

16:40 < audreyt> you mean breaking the build? sure!

Location:

src/Pugs/Val

Files:

• Base.hs (modified) (1 diff)
• Code.hs (modified) (2 diffs)

src/Pugs/Val/Base.hs

@@ -24 +24 @@
     asNum x = fail $ "coerce fail: " ++ (show $ typeOf x) ++ " to PureNum"
     asStr    :: a -> m PureStr
-    asStr x = return (cast "<opaque>") -- XXX wrong
+    asStr _ = return (cast "<opaque>") -- XXX wrong
     -- "$item = VAL"
     asItem   :: a -> Maybe (m Val)

src/Pugs/Val/Code.hs

@@ -1 @@
-{- hopefully, in 6.6, this can be a first-class compilation unit. For now,
- - it's #included from Pugs.Val.
-{-# OPTIONS_GHC -fglasgow-exts -fallow-overlapping-instances #-}
+{-
+ - {-# OPTIONS_GHC -fglasgow-exts -fallow-overlapping-instances #-}
 module Pugs.Val.Code where
 import Pugs.Internals
@@ -143 +142 @@
 
 -- | Runtime Capture with dynamic Exp for leaves
-type ExpCapt = Capt Exp
+--type ExpCapt = Capt Exp
 -- | Static Capture with Val for leaves
 type ValCapt = Capt Val
 
-type Exp = () -- XXX bogus