Changeset 12044 for src/Pugs/Val

Timestamp:

08/09/06 19:09:40 (2 years ago)

Author:

audreyt

Message:

* Implicit coercion to int and to bool for PureStr? VV.

Location:

src/Pugs/Val

Files:

• Int.hs (modified) (1 diff)
• Num.hs (modified) (1 diff)
• Str.hs (modified) (1 diff)

src/Pugs/Val/Int.hs

@@ -6 +6 @@
 instance ((:>:) PureInt) Integer where cast = MkInt
 instance ((:<:) PureInt) Integer where castBack (MkInt i) = i
+
+instance ((:>:) PureInt) Int where cast = MkInt . toInteger
 
 newtype PureInt = MkInt Integer

src/Pugs/Val/Num.hs

@@ -6 +6 @@
 instance ((:>:) PureNum) Double where cast = MkNum
 instance ((:<:) PureNum) Double where castBack (MkNum i) = i
+
+instance ((:>:) PureNum) Int where cast = MkNum . fromIntegral
 
 newtype PureNum = MkNum Double

src/Pugs/Val/Str.hs

@@ -15 +15 @@
 -}
 
-parseNum :: PureStr -> Double
-parseNum (MkStr s) = fromIntegral i
-    where (i, _) = maybe (0, undefined) id $ Char8.readInt s
+parseInt :: PureStr -> Int
+parseInt (MkStr s) = maybe 0 fst (Char8.readInt s)