diff options
Diffstat (limited to 'server/src')
-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 |