Changeset 11993 for src/Pugs/Val

Timestamp:

08/08/06 15:08:42 (2 years ago)

Author:

audreyt

Message:

* unbreak the build by supplying an instance for new val

Files:

• src/Pugs/Val/Str.hs (modified) (2 diffs)

src/Pugs/Val/Str.hs

@@ -2 +2 @@
 module Pugs.Val.Str where
 import Pugs.Internals
+import {-# SOURCE #-} Pugs.Val
 import qualified Data.ByteString.Char8 as Char8
 
@@ -10 +11 @@
     deriving (Typeable, Show, Eq, Ord, Data, (:>:) String, (:<:) String, (:>:) ByteString, (:<:) ByteString)
 
+instance Coercible P PureStr where
+    asStr  = return . cast
+
+class (Monad m, Functor m, Eq a, Data a, Typeable a) => Coercible m a | a -> m where
+    asBit    :: a -> m PureBit
+    asBit _ = return True
+    asInt    :: a -> m PureInt
+    asInt x = fail $ "coerce fail: " ++ (show $ typeOf x) ++ " to PureInt"
+    asNum    :: a -> m PureNum
+    asNum x = fail $ "coerce fail: " ++ (show $ typeOf x) ++ " to PureNum"
+    asStr    :: a -> m PureStr
+    asStr x = return (cast "<opaque>") -- XXX wrong
+    asList   :: a -> Maybe (m PureList)
+    asList _ = Nothing -- default = do not flatten
+    asNative :: a -> m ValNative
+    asNative = fmap (NBuf . cast) . asStr
+