Changeset 2559 for src/Pugs/Types/Scalar.hs
- Timestamp:
- 05/01/05 08:23:29 (4 years ago)
- svk:copy_cache_prev:
- 4052
- Files:
-
- 1 modified
-
src/Pugs/Types/Scalar.hs (modified) (5 diffs)
Legend:
- Unmodified
- Added
- Removed
-
src/Pugs/Types/Scalar.hs
r2441 r2559 5 5 scalar_fetch :: a -> Eval VScalar 6 6 scalar_store :: a -> VScalar -> Eval () 7 scalar_const :: a -> Maybe VScalar 7 8 8 9 instance ScalarClass IScalarProxy where … … 10 11 scalar_fetch = fst 11 12 scalar_store = snd 13 scalar_const = const Nothing 12 14 13 15 instance ScalarClass IScalar where 14 16 scalar_fetch = liftSTM . readTVar 15 17 scalar_store = (liftSTM .) . writeTVar 18 scalar_const = const Nothing 16 19 17 20 instance ScalarClass IScalarLazy where … … 19 22 scalar_fetch = return . maybe undef id 20 23 scalar_store _ v = retConstError v 24 scalar_const = const Nothing 21 25 22 26 instance ScalarClass IScalarCwd where … … 28 32 str <- fromVal val 29 33 tryIO () $ setCurrentDirectory str 34 scalar_const = const Nothing 30 35 31 36 instance ScalarClass VScalar where … … 34 39 scalar_fetch v = return v 35 40 scalar_store _ v = retConstError v 41 scalar_const = Just 36 42
