server/src/RW.hs

{-# LANGUAGE MultiParamTypeClasses #-}
module RW (
    RW(..)
  ) where

class RW a b where
  get :: b -> a
  set :: a -> b -> b
  update :: (a ->  a) -> b -> b
  update f v =
    set (f (get v)) v
First draft, basic session handling 2018-04-11 13:25:24 +02:00			`{-# LANGUAGE MultiParamTypeClasses #-}`
Rename poorly named module Data to RW 2019-10-13 21:52:28 +02:00			`module RW (`
Use the new APILanguage and simplify a lot of code 2019-08-24 23:29:40 +02:00			`RW(..)`
First draft, basic session handling 2018-04-11 13:25:24 +02:00			`) where`

			`class RW a b where`
Basic client dialogs to login and start a new game 2018-05-11 12:31:53 +02:00			`get :: b -> a`
First draft, basic session handling 2018-04-11 13:25:24 +02:00			`set :: a -> b -> b`
Basic client dialogs to login and start a new game 2018-05-11 12:31:53 +02:00			`update :: (a -> a) -> b -> b`
			`update f v =`
			`set (f (get v)) v`