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