server/src/Data.hs

10 lines
169 B
Haskell
Raw Normal View History

2018-04-11 13:25:24 +02:00
{-# LANGUAGE MultiParamTypeClasses #-}
module Data (
RW(..)
) where
class RW a b where
update :: (a -> a) -> b -> b
set :: a -> b -> b
set = update . const