1 files changed, 2 insertions, 2 deletions

diff --git a/server/src/Thermoprint/Server/Queue.hs b/server/src/Thermoprint/Server/Queue.hs
index 3c7cce6..a93498e 100644
--- a/server/src/Thermoprint/Server/Queue.hs
+++ b/server/src/Thermoprint/Server/Queue.hs
@@ -26,7 +26,7 @@ import           Data.Time
 import           Data.ExtendedReal
 import           Data.Fixed
 
-import           Control.DeepSeq (NFData)
+import           Control.DeepSeq
 import           Data.Typeable (Typeable)
 import           GHC.Generics (Generic)
 
@@ -133,7 +133,7 @@ runQM :: ( HasQueue q
 -- ^ Periodically modify a 'Queue'
 runQM qm (extractQueue -> q) = sleep =<< qm'
   where
-    qm' = hoist atomically $ (\(a, s) -> lift (writeTVar q s) >> return a) =<< runStateT (getComposeT qm) =<< lift (readTVar q)
+    qm' = hoist atomically $ (\(a, s) -> lift (writeTVar q $!! s) >> return a) =<< runStateT (getComposeT qm) =<< lift (readTVar q)
     sleep (abs -> delay)
       | (Finite d) <- delay = liftIO (threadDelay $ fromEnum d) >> runQM qm q
       | otherwise = return ()