@@ -188,7 +188,7 @@ class Storable a => Unbox a where
188 -- index.
188 -- index.
189 unbox :: MutableByteArray a -> Int -> a -> IO ()
189 unbox :: MutableByteArray a -> Int -> a -> IO ()
191−type Unboxed a = (Unbox a, Storable a)
191+type Unboxed a = Unbox a
193#define DERIVE_UNBOXED(_type, _constructor, _readArray, _writeArray) \
193#define DERIVE_UNBOXED(_type, _constructor, _readArray, _writeArray) \
194instance Unbox _type where { \
194instance Unbox _type where { \