@@ -135,7 +135,9 @@ import qualified Data.Primitive.SmallArray as PM
135import qualified Data.Primitive.Types as PM
135import qualified Data.Primitive.Types as PM
137#if MIN_VERSION_primitive(0,6,4)
137#if MIN_VERSION_primitive(0,6,4)
138+#if !MIN_VERSION_primitive(0,7,0)
138import qualified Data.Primitive.UnliftedArray as PM
139import qualified Data.Primitive.UnliftedArray as PM
139import qualified Data.Primitive.PrimArray as PM
141import qualified Data.Primitive.PrimArray as PM
@@ -1957,11 +1959,13 @@ instance (PM.Prim a,ToJSON a) => ToJSON (PM.PrimArray a) where
1957 toJSON = toJSON . Exts.toList
1959 toJSON = toJSON . Exts.toList
1958 toEncoding = toEncoding . Exts.toList
1960 toEncoding = toEncoding . Exts.toList
1962+#if !MIN_VERSION_primitive(0,7,0)
1960instance (PM.PrimUnlifted a,ToJSON a) => ToJSON (PM.UnliftedArray a) where
1963instance (PM.PrimUnlifted a,ToJSON a) => ToJSON (PM.UnliftedArray a) where
1961 toJSON = toJSON . Exts.toList
1964 toJSON = toJSON . Exts.toList
1962 toEncoding = toEncoding . Exts.toList
1965 toEncoding = toEncoding . Exts.toList
1966-------------------------------------------------------------------------------
1970-------------------------------------------------------------------------------