-type SampleVar a
- = MVar (Int, -- 1 == full
- -- 0 == empty
- -- <0 no of readers blocked
- MVar a)
+newtype SampleVar a = SampleVar ( MVar ( Int -- 1 == full
+ -- 0 == empty
+ -- <0 no of readers blocked
+ , MVar a
+ )
+ )
+ deriving (Eq)
+
+INSTANCE_TYPEABLE1(SampleVar,sampleVarTc,"SampleVar")