Use explicit language extensions & remove extension fields from base.cabal

[ghc-base.git] / Control / Concurrent / Chan.hs

diff --git a/Control/Concurrent/Chan.hs b/Control/Concurrent/Chan.hs
index dfc46c3..2255c4e 100644 (file)
--- a/Control/Concurrent/Chan.hs
+++ b/Control/Concurrent/Chan.hs
@@ -1,3 +1,5 @@
+{-# LANGUAGE CPP #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Control.Concurrent.Chan
@@ -46,6 +48,7 @@ import Data.Typeable
 data Chan a
  = Chan (MVar (Stream a))
         (MVar (Stream a))
+   deriving Eq
 
 INSTANCE_TYPEABLE1(Chan,chanTc,"Chan")
 
@@ -93,6 +96,9 @@ readChan (Chan readVar _) = do
 -- either channel from then on will be available from both.  Hence this creates
 -- a kind of broadcast channel, where data written by anyone is seen by
 -- everyone else.
+--
+-- (Note that a duplicated channel is not equal to its original.
+-- So: @fmap (c /=) $ dupChan c@ returns @True@ for all @c@.)
 dupChan :: Chan a -> IO (Chan a)
 dupChan (Chan _ writeVar) = do
    hole       <- readMVar writeVar