diff options
Diffstat (limited to 'src/Invitations.hs')
-rw-r--r-- | src/Invitations.hs | 14 |
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) |