From 8ed465db831a534958c05c2670f618fbcef7af38 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Fri, 5 Feb 2016 17:50:58 +0100 Subject: better docs --- server/src/Thermoprint/Server/Queue.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'server/src') diff --git a/server/src/Thermoprint/Server/Queue.hs b/server/src/Thermoprint/Server/Queue.hs index 69295bb..3c7cce6 100644 --- a/server/src/Thermoprint/Server/Queue.hs +++ b/server/src/Thermoprint/Server/Queue.hs @@ -140,6 +140,8 @@ runQM qm (extractQueue -> q) = sleep =<< qm' intersection :: (Foldable f, MonadState Queue (QueueManagerM t)) => f (QueueManager t) -> QueueManager t -- ^ Combine two 'QueueManager's keeping only 'QueueEntry's both managers decide to keep +-- +-- Side effects propagate left to right intersection = foldr' (qmCombine Set.intersection) idQM idQM :: Monad (QueueManagerM t) => QueueManager t @@ -148,6 +150,8 @@ idQM = return PosInf union :: (Foldable f, MonadState Queue (QueueManagerM t)) => f (QueueManager t) -> QueueManager t -- ^ Combine two 'QueueManager's keeping all 'QueueEntry's either of the managers decides to keep +-- +-- Side effects propagate left to right union = foldr' (qmCombine Set.union) nullQM nullQM :: MonadState Queue (QueueManagerM t) => QueueManager t -- cgit v1.2.3