Changeset 2541 for src/Pugs/Types/Pair.hs

Timestamp:

05/01/05 06:40:46 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

4052

Message:

* %hash.pairs now returns a list of lvaluable pairs.
* beginning of moving all castfails into Eval monad.

Files:

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

src/Pugs/Types/Pair.hs

@@ -32 +32 @@
     pair_fetchElem pv = do
         return $ proxyScalar (pair_fetchVal pv) (pair_storeVal pv)
+
+instance PairClass IPairHashSlice where
+    pair_iType = const $ mkType "Pair::HashSlice"
+    pair_fetchKey  = return . VStr . fst
+    pair_fetchElem = return . snd