Derived Typeable instance for TChan
authorBas van Dijk <v.dijk.bas@gmail.com>
Sat, 10 Apr 2010 13:35:23 +0000 (13:35 +0000)
committerBas van Dijk <v.dijk.bas@gmail.com>
Sat, 10 Apr 2010 13:35:23 +0000 (13:35 +0000)
Control/Concurrent/STM/TChan.hs

index 239885b..f230e44 100644 (file)
@@ -1,4 +1,6 @@
 {-# OPTIONS_GHC -fno-warn-name-shadowing #-}
+{-# LANGUAGE DeriveDataTypeable #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Control.Concurrent.STM.TChan
@@ -31,8 +33,10 @@ module Control.Concurrent.STM.TChan (
 #ifdef __GLASGOW_HASKELL__
 import GHC.Conc
 
+import Data.Typeable (Typeable)
+
 -- | 'TChan' is an abstract type representing an unbounded FIFO channel.
-data TChan a = TChan (TVar (TVarList a)) (TVar (TVarList a))
+data TChan a = TChan (TVar (TVarList a)) (TVar (TVarList a)) deriving Typeable
 
 type TVarList a = TVar (TList a)
 data TList a = TNil | TCons a (TVarList a)