aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--server/src/Thermoprint/Server/API.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/server/src/Thermoprint/Server/API.hs b/server/src/Thermoprint/Server/API.hs
index add771a..2433c8e 100644
--- a/server/src/Thermoprint/Server/API.hs
+++ b/server/src/Thermoprint/Server/API.hs
@@ -146,8 +146,8 @@ listJobs :: Maybe PrinterId
146listJobs Nothing minId maxId minTime maxTime = fmap mconcat . mapM (\pId -> listJobs (Just pId) minId maxId minTime maxTime) =<< asks (Map.keys . printers) 146listJobs Nothing minId maxId minTime maxTime = fmap mconcat . mapM (\pId -> listJobs (Just pId) minId maxId minTime maxTime) =<< asks (Map.keys . printers)
147listJobs pId minId maxId minTime maxTime = fmap (filterJobs . extractJobs) . (\(a, b) -> (,) a <$> queue' b) =<< lookupPrinter pId 147listJobs pId minId maxId minTime maxTime = fmap (filterJobs . extractJobs) . (\(a, b) -> (,) a <$> queue' b) =<< lookupPrinter pId
148 where 148 where
149 filterJobs = Seq.filter (\(id, time, _) -> and [ maybe True (<= id) minId 149 filterJobs = Seq.filter (\(id, time, _) -> and [ maybe True (<= id ) minId
150 , maybe True (>= id) maxId 150 , maybe True (>= id ) maxId
151 , maybe True (<= time) minTime 151 , maybe True (<= time) minTime
152 , maybe True (>= time) maxTime 152 , maybe True (>= time) maxTime
153 ] 153 ]