From 11052951b74b9ad4b6a9412ae490086235f9154b Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 3 Jan 2021 13:40:40 +0100
Subject: Rewrite in Rust

---
 server/src/Job/Model.hs | 49 -------------------------------------------------
 1 file changed, 49 deletions(-)
 delete mode 100644 server/src/Job/Model.hs

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

diff --git a/server/src/Job/Model.hs b/server/src/Job/Model.hs
deleted file mode 100644
index 1dd6c63..0000000
--- a/server/src/Job/Model.hs
+++ /dev/null
@@ -1,49 +0,0 @@
-module Job.Model
-  ( Job(..)
-  , getLastExecution
-  , actualizeLastExecution
-  , actualizeLastCheck
-  ) where
-
-import           Data.Time.Clock        (UTCTime, getCurrentTime)
-import           Database.SQLite.Simple (Only (Only))
-import qualified Database.SQLite.Simple as SQLite
-import           Prelude                hiding (id)
-
-import           Job.Kind
-import           Model.Query            (Query (Query))
-
-data Job = Job
-  { id            :: String
-  , kind          :: Kind
-  , lastExecution :: Maybe UTCTime
-  , lastCheck     :: Maybe UTCTime
-  } deriving (Show)
-
-getLastExecution :: Kind -> Query (Maybe UTCTime)
-getLastExecution jobKind =
-  Query (\conn -> do
-    result <- SQLite.query conn "SELECT last_execution FROM job WHERE kind = ?" (Only jobKind) :: IO [Only UTCTime]
-    return $ case result of
-      [Only time] -> Just time
-      _           -> Nothing
-  )
-
-actualizeLastExecution :: Kind -> UTCTime -> Query ()
-actualizeLastExecution jobKind time =
-  Query (\conn -> do
-    result <- SQLite.query conn "SELECT 1 FROM job WHERE kind = ?" (Only jobKind) :: IO [Only Int]
-    let hasJob = case result of
-         [Only _] -> True
-         _        -> False
-    if hasJob
-      then SQLite.execute conn "UPDATE job SET last_execution = ? WHERE kind = ?" (time, jobKind)
-      else SQLite.execute conn "INSERT INTO job (kind, last_execution, last_check) VALUES (?, ?, ?)" (jobKind, time, time)
-  )
-
-actualizeLastCheck :: Kind -> Query ()
-actualizeLastCheck jobKind =
-  Query (\conn -> do
-    now <- getCurrentTime
-    SQLite.execute conn "UPDATE job SET kind = ? WHERE last_check = ?" (jobKind, now)
-  )
-- 
cgit v1.2.3