Re: [Haskell-cafe] Making MVar and Chan Instances of Typeable

[MR K P SCHUPKE]

nstance Typeable a => Typeable (MVar a) where
  typeOf (x::x) =
    mkAppTy (mkTyCon "Control.Concurrent.MVar.MVar") [typeOf (undefined::x)]

Keean.
_______________________________________________
Haskell-Cafe mailing list
[EMAIL PROTECTED]
http://www.haskell.org/mailman/listinfo/haskell-cafe