Changeset 5173 for src/Pugs/Types

Timestamp:

07/04/05 00:41:03 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

6965

Message:

* first step toward transparent container: ref now

reports the underlying value.

Files:

• src/Pugs/Types/Scalar.hs (modified) (1 diff)

src/Pugs/Types/Scalar.hs

@@ -46 +46 @@
     scalar_store d _ = retConstError d
     scalar_const = Just
+    scalar_type (VRef (MkRef (IScalar sv))) = scalar_type sv
     scalar_type v = return $ valType v
     scalar_fetch' v = return v