From 0a6e4d0cdee9aba48869361637613cb74c749289 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Fri, 26 Feb 2016 15:13:02 +0100
Subject: Fixed queue to be FIFO

---
 server/src/Thermoprint/Server/Printer.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'server/src/Thermoprint')

diff --git a/server/src/Thermoprint/Server/Printer.hs b/server/src/Thermoprint/Server/Printer.hs
index d0dc37b..722d4ed 100644
--- a/server/src/Thermoprint/Server/Printer.hs
+++ b/server/src/Thermoprint/Server/Printer.hs
@@ -106,5 +106,5 @@ addToQueue printout Printer{..} = do
       , created = time
       }
   $(logInfo) . T.pack $ "Queueing " ++ show (unSqlBackendKey . unJobKey $ jobId)
-  atomically' $ modifyTVar' queue (\Queue{..} -> force $ Queue (pending |> entry) current history)
+  atomically' $ modifyTVar' queue (\Queue{..} -> force $ Queue (entry <| pending) current history)
   return jobId
-- 
cgit v1.2.3