Changeset 13488 for src/Pugs/Val

Timestamp:

09/20/06 11:54:32 (2 years ago)

Author:

audreyt

Message:

* Pugs.Val: asStr instance for PureInt?.
* Also make Feed a Monoid.

Location:

src/Pugs/Val

Files:

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

src/Pugs/Val/Base.hs

@@ -75 +75 @@
 instance ICoercible P PureInt where
     asInt = return . cast
+    asStr INotANumber           = cast "NaN"
+    asStr (IInfinite SPositive) = cast "Inf"
+    asStr (IInfinite SNegative) = cast "-Inf"
+    asStr (IFinite n)           = cast (show n)
     asNum INotANumber           = return $ cast ( (0/0) :: Double)
     asNum (IInfinite SPositive) = return $ cast ( (1/0) :: Double)

src/Pugs/Val/Code.hs

@@ -207 +207 @@
     deriving (Show, Eq, Ord, Typeable) {-!derive: YAML_Pos, Perl6Class, MooseClass!-}
 
+instance Monoid (Feed a) where
+    mempty = MkFeed mempty mempty
+    mappend (MkFeed x1 x2) (MkFeed y1 y2) = MkFeed (mappend x1 y1) (mappend x2 y2)
+    mconcat xs = MkFeed (mconcat (map f_positionals xs)) (mconcat (map f_nameds xs))
+
 emptyFeed :: Feed a
 emptyFeed = MkFeed [] Map.empty