From 903108a3b64758fa58783878756931e6cf187e53 Mon Sep 17 00:00:00 2001
From: Joris
Date: Tue, 7 Nov 2017 09:43:25 +0100
Subject: Reformat payment queries

---
 src/server/Model/User.hs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'src/server/Model/User.hs')

diff --git a/src/server/Model/User.hs b/src/server/Model/User.hs
index eb78a69..e14fcef 100644
--- a/src/server/Model/User.hs
+++ b/src/server/Model/User.hs
@@ -4,8 +4,8 @@
 module Model.User
   ( list
   , get
-  , createUser
-  , deleteUser
+  , create
+  , delete
   ) where
 
 import Data.Maybe (listToMaybe)
@@ -31,8 +31,8 @@ get userEmail =
     SQLite.query conn "SELECT * FROM user WHERE email = ? LIMIT 1" (Only userEmail)
   )
 
-createUser :: Text -> Text -> Query UserId
-createUser userEmail userName =
+create :: Text -> Text -> Query UserId
+create userEmail userName =
   Query (\conn -> do
     now <- getCurrentTime
     SQLite.execute
@@ -42,8 +42,8 @@ createUser userEmail userName =
     SQLite.lastInsertRowId conn
   )
 
-deleteUser :: Text -> Query ()
-deleteUser userEmail =
+delete :: Text -> Query ()
+delete userEmail =
   Query (\conn ->
     SQLite.execute conn "DELETE FROM user WHERE email = ?" (Only userEmail)
   )
-- 
cgit v1.2.3