1 files changed, 4 insertions, 4 deletions

diff --git a/server/src/Thermoprint/Server/Queue.hs b/server/src/Thermoprint/Server/Queue.hs
index b752576..dcd4119 100644
--- a/server/src/Thermoprint/Server/Queue.hs
+++ b/server/src/Thermoprint/Server/Queue.hs
@@ -109,10 +109,10 @@ instance Ord PlainQueueItem where
   (unPlain -> Current _    ) <= _                          = True
 
 fromZipper :: Queue -> Set QueueItem
-fromZipper Queue{..} = Set.fromList . toList $ mconcat [ Seq.mapWithIndex Pending pending
-                                                       , maybe Seq.empty (Seq.singleton . Current) current
-                                                       , Seq.mapWithIndex (\i (a, e) -> History i a e) history
-                                                       ]
+fromZipper Queue{..} = foldr Set.insert Set.empty $ mconcat [ Seq.mapWithIndex Pending pending
+                                                            , maybe Seq.empty (Seq.singleton . Current) current
+                                                            , Seq.mapWithIndex (\i (a, e) -> History i a e) history
+                                                            ]
 
 toZipper :: Set QueueItem -> Queue
 toZipper = Set.foldl' (flip insert) def