From c0ea63f8c1a8c7123b78798cec99726b113fb1f3 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 17 Nov 2019 18:08:28 +0100
Subject: Optimize and refactor payments

---
 server/src/Model/SignIn.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/server/src/Model/SignIn.hs b/server/src/Model/SignIn.hs
index 0cc4a03..bcdce61 100644
--- a/server/src/Model/SignIn.hs
+++ b/server/src/Model/SignIn.hs
@@ -7,7 +7,7 @@ module Model.SignIn
   ) where
 
 import           Data.Int               (Int64)
-import           Data.Maybe             (listToMaybe)
+import qualified Data.Maybe             as Maybe
 import           Data.Text              (Text)
 import           Data.Time.Clock        (getCurrentTime)
 import           Data.Time.Clock        (UTCTime)
@@ -47,7 +47,7 @@ createSignInToken signInEmail =
 getSignIn :: Text -> Query (Maybe SignIn)
 getSignIn signInToken =
   Query (\conn -> do
-    listToMaybe <$> (SQLite.query conn "SELECT * from sign_in WHERE token = ? LIMIT 1" (Only signInToken) :: IO [SignIn])
+    Maybe.listToMaybe <$> (SQLite.query conn "SELECT * from sign_in WHERE token = ? LIMIT 1" (Only signInToken) :: IO [SignIn])
   )
 
 signInTokenToUsed :: SignInId -> Query ()
-- 
cgit v1.2.3