11 lines
170 B
Haskell
11 lines
170 B
Haskell
|
{-# LANGUAGE MultiParamTypeClasses #-}
|
||
|
|
module Data (
|
||
|
|
RW(..)
|
||
|
|
) where
|
||
|
|
|
||
|
|
class RW a b where
|
||
|
|
update :: (a -> a) -> b -> b
|
||
|
|
set :: a -> b -> b
|
||
|
|
set = update . const
|
||
|
|
|