whitespace.

1 files changed, 5 insertions, 5 deletions

diff --git a/Control/Concurrent/STM/UpdateStream.hs b/Control/Concurrent/STM/UpdateStream.hs
index b01fc0bc..227ffef4 100644
--- a/Control/Concurrent/STM/UpdateStream.hs
+++ b/Control/Concurrent/STM/UpdateStream.hs
@@ -6,10 +6,10 @@
 -- Maintainer  :  joe@jerkface.net
 -- Stability   :  experimental
 --
--- An UpdateSream consists of pass-through messages that are queued up and 
+-- An UpdateStream consists of pass-through messages that are queued up and
 -- slotted messages which might be obsoleted and discarded if they are not
 -- consumed before newer slotted messages with the same slot value occur.
--- 
+--
 -- Slots are implemented with "Control.Concurrent.STM.StatusCache" and it is
 -- recommended that you read that documentation first.
 --
@@ -25,7 +25,7 @@
 -- > import Control.Concurrent (forkIO, threadDelay)
 -- > import System.IO          (hFlush, stdout)
 -- > import qualified Control.Concurrent.STM.UpdateStream as Cache
--- > 
+-- >
 -- > messages :: [(Maybe String, Char)]
 -- > messages = concat
 -- >     [ slot "x" "(set x = 2)"
@@ -40,7 +40,7 @@
 -- >  where
 -- >     slot v cs = map ((,) (Just v)) cs
 -- >     message cs = map ((,) Nothing) cs
--- > 
+-- >
 -- > main = do
 -- >     q <- atomically $ Cache.new (== '(') (==')')
 -- >     let go = mapM_ (atomically . (uncurry $ Cache.push q)
@@ -135,7 +135,7 @@ push u (Just n) x = do
     Status.push scache x
 
 -- | Pull off a chunk from the 'UpdateStream' for processing.
--- 
+--
 -- If chunks are not pulled off quickly, they may be obsoleted
 -- and discarded when new messages are 'push'ed.
 pull :: Ord slot => UpdateStream slot x -> STM x