[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.