aboutsummaryrefslogtreecommitdiff
path: root/server/src/Job/Model.hs
diff options
context:
space:
mode:
authorJoris2017-11-13 23:56:40 +0100
committerJoris2017-11-14 00:03:10 +0100
commit5a63f7be9375e3ab888e4232dd7ef72c2f1ffae1 (patch)
tree4884de1d03bc47ba8f06b2cf68365d9eed9e0d39 /server/src/Job/Model.hs
parent213cf7ede058b781fc957de2cd9f6a5988c08004 (diff)
downloadbudget-5a63f7be9375e3ab888e4232dd7ef72c2f1ffae1.tar.gz
budget-5a63f7be9375e3ab888e4232dd7ef72c2f1ffae1.tar.bz2
budget-5a63f7be9375e3ab888e4232dd7ef72c2f1ffae1.zip
Setup stylish-haskell
Diffstat (limited to 'server/src/Job/Model.hs')
-rw-r--r--server/src/Job/Model.hs18
1 files changed, 9 insertions, 9 deletions
diff --git a/server/src/Job/Model.hs b/server/src/Job/Model.hs
index e1a3c77..b90dca0 100644
--- a/server/src/Job/Model.hs
+++ b/server/src/Job/Model.hs
@@ -7,20 +7,20 @@ module Job.Model
, actualizeLastCheck
) where
-import Data.Maybe (isJust)
-import Data.Time.Clock (UTCTime, getCurrentTime)
-import Database.SQLite.Simple (Only(Only))
+import Data.Maybe (isJust)
+import Data.Time.Clock (UTCTime, getCurrentTime)
+import Database.SQLite.Simple (Only (Only))
import qualified Database.SQLite.Simple as SQLite
-import Prelude hiding (id)
+import Prelude hiding (id)
-import Job.Kind
-import Model.Query (Query(Query))
+import Job.Kind
+import Model.Query (Query (Query))
data Job = Job
- { id :: String
- , kind :: Kind
+ { id :: String
+ , kind :: Kind
, lastExecution :: Maybe UTCTime
- , lastCheck :: Maybe UTCTime
+ , lastCheck :: Maybe UTCTime
} deriving (Show)
getLastExecution :: Kind -> Query (Maybe UTCTime)