From 501441e2e5c96c85dec68dc42992d91db055f092 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Thu, 11 Feb 2016 22:05:23 +0000 Subject: Fixed zipper morphisms flipping history --- server/src/Thermoprint/Server/Queue.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'server/src') 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 } -- cgit v1.2.3