Changeset 4173 for src/Pugs/Types

Timestamp:

05/30/05 19:00:46 (4 years ago)

Author:

theorbtwo

svk:copy_cache_prev:

5706

Message:

Fix the error for 42 = "a" to point out that the 42 is read-only, not what
is being assigned to it.

Files:

• src/Pugs/Types/Scalar.hs (modified) (2 diffs)

src/Pugs/Types/Scalar.hs

@@ -21 +21 @@
     scalar_iType = const $ mkType "Scalar::Lazy"
     scalar_fetch = return . maybe undef id
-    scalar_store _ v = retConstError v
+    scalar_store d s = retConstError $ VStr $ show d
     scalar_const = const Nothing
 
@@ -38 +38 @@
     scalar_fetch (VRef ref) = readRef ref
     scalar_fetch v = return v
-    scalar_store _ v = retConstError v
+    scalar_store d s = retConstError d
     scalar_const = Just