persistence api

1 files changed, 26 insertions, 0 deletions

diff --git a/src/Settlr/Cookies.hs b/src/Settlr/Cookies.hs
new file mode 100644
index 0000000..56c645d
--- /dev/null
+++ b/src/Settlr/Cookies.hs
@@ -0,0 +1,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