diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-26 15:13:02 +0100 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-26 15:13:02 +0100 |
| commit | 0a6e4d0cdee9aba48869361637613cb74c749289 (patch) | |
| tree | a4aeeef6e86304af9ce2c530b64592330e870139 /server | |
| parent | 4affa4001afa5cad8ed2e8cd865fae21812badce (diff) | |
| download | thermoprint-0a6e4d0cdee9aba48869361637613cb74c749289.tar thermoprint-0a6e4d0cdee9aba48869361637613cb74c749289.tar.gz thermoprint-0a6e4d0cdee9aba48869361637613cb74c749289.tar.bz2 thermoprint-0a6e4d0cdee9aba48869361637613cb74c749289.tar.xz thermoprint-0a6e4d0cdee9aba48869361637613cb74c749289.zip | |
Fixed queue to be FIFO
Diffstat (limited to 'server')
| -rw-r--r-- | server/src/Thermoprint/Server/Printer.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 | |||
| 106 | , created = time | 106 | , created = time |
| 107 | } | 107 | } |
| 108 | $(logInfo) . T.pack $ "Queueing " ++ show (unSqlBackendKey . unJobKey $ jobId) | 108 | $(logInfo) . T.pack $ "Queueing " ++ show (unSqlBackendKey . unJobKey $ jobId) |
| 109 | atomically' $ modifyTVar' queue (\Queue{..} -> force $ Queue (pending |> entry) current history) | 109 | atomically' $ modifyTVar' queue (\Queue{..} -> force $ Queue (entry <| pending) current history) |
| 110 | return jobId | 110 | return jobId |