blob: 56c645d6b740bcf5e97ce41b1d43b756f7443bfc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
module Settlr.Cookies
( SavedGroup(..)
, getSavedGroups
, getSavedGroupSelf
, addGroup
, removeGroup
) where
import Settlr.Scripts (ScriptM)
import Settlr.Storage (Group, Member)
data SavedGroup = SavedGroup
{ savGroupID :: !Group
, savSelf :: !Member
}
getSavedGroups :: ScriptM [SavedGroup]
getSavedGroups = undefined
getSavedGroupSelf :: Group -> ScriptM (Maybe Member)
getSavedGroupSelf = undefined
addGroup :: Group -> Member -> ScriptM ()
addGroup = undefined
removeGroup :: Group -> ScriptM ()
removeGroup = undefined
|
