1 files changed, 1 insertions, 1 deletions

diff --git a/server/src/Thermoprint/Server/Queue.hs b/server/src/Thermoprint/Server/Queue.hs
index 52e973d..b752576 100644
--- a/server/src/Thermoprint/Server/Queue.hs
+++ b/server/src/Thermoprint/Server/Queue.hs
@@ -115,7 +115,7 @@ fromZipper Queue{..} = Set.fromList . toList $ mconcat [ Seq.mapWithIndex Pendin
                                                        ]
 
 toZipper :: Set QueueItem -> Queue
-toZipper = Set.foldr' insert def
+toZipper = Set.foldl' (flip insert) def
   where
     insert (Pending _ a) q@(Queue{..}) = q { pending = pending |> a }
     insert (Current a) q = q { current = Just a }