Support POST /invite

Allow Admin accounts to invite users to the application.

1 files changed, 14 insertions, 0 deletions

diff --git a/src/Invitations.hs b/src/Invitations.hs
new file mode 100644
index 000000000000..62038bb03646
--- /dev/null
+++ b/src/Invitations.hs
@@ -0,0 +1,14 @@
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
+--------------------------------------------------------------------------------
+module Invitations where
+--------------------------------------------------------------------------------
+import Database.SQLite.Simple
+
+import qualified Types as T
+--------------------------------------------------------------------------------
+
+create :: FilePath -> T.InvitationSecret -> T.Email -> T.Role -> IO ()
+create dbFile secret email role = withConnection dbFile $ \conn -> do
+  execute conn "INSERT INTO Invitations (email,role,secret) VALUES (?,?,?)"
+    (email, role, secret)