Changeset 12041 for src/Pugs/Val

Timestamp:

08/09/06 18:34:03 (2 years ago)

Author:

gaal

Message:

* Pugs.Val.Num and simple coersion triggered from oldspace.

1 + 41 constructs two newval PureStrs?, and the fromVV /
ICoercible classes figure out how to get numbers of them.

Files:

• src/Pugs/Val/Str.hs (modified) (1 diff)

src/Pugs/Val/Str.hs

@@ -14 +14 @@
     asStr  = cast
 -}
+
+parseNum :: PureStr -> Double
+parseNum (MkStr s) = fromIntegral i
+    where (i, _) = maybe (0, undefined) id $ Char8.readInt s