From 5a63f7be9375e3ab888e4232dd7ef72c2f1ffae1 Mon Sep 17 00:00:00 2001
From: Joris
Date: Mon, 13 Nov 2017 23:56:40 +0100
Subject: Setup stylish-haskell

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

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

diff --git a/server/src/Model/SignIn.hs b/server/src/Model/SignIn.hs
index c5182f0..6f38fe7 100644
--- a/server/src/Model/SignIn.hs
+++ b/server/src/Model/SignIn.hs
@@ -8,25 +8,25 @@ module Model.SignIn
   , isLastTokenValid
   ) where
 
-import Data.Int (Int64)
-import Data.Maybe (listToMaybe)
-import Data.Text (Text)
-import Data.Time.Clock (getCurrentTime)
-import Data.Time.Clock (UTCTime)
-import Database.SQLite.Simple (Only(Only), FromRow(fromRow))
+import           Data.Int               (Int64)
+import           Data.Maybe             (listToMaybe)
+import           Data.Text              (Text)
+import           Data.Time.Clock        (getCurrentTime)
+import           Data.Time.Clock        (UTCTime)
+import           Database.SQLite.Simple (FromRow (fromRow), Only (Only))
 import qualified Database.SQLite.Simple as SQLite
 
-import Model.Query (Query(Query))
-import Model.UUID (generateUUID)
+import           Model.Query            (Query (Query))
+import           Model.UUID             (generateUUID)
 
 type SignInId = Int64
 
 data SignIn = SignIn
-  { id :: SignInId
-  , token :: Text
+  { id       :: SignInId
+  , token    :: Text
   , creation :: UTCTime
-  , email :: Text
-  , isUsed :: Bool
+  , email    :: Text
+  , isUsed   :: Bool
   } deriving Show
 
 instance FromRow SignIn where
-- 
cgit v1.2.3