@@ -135,7 +135,9 @@ import qualified Data.Primitive.SmallArray as PM
135135import qualified Data.Primitive.Types as PM
136136
137137#if MIN_VERSION_primitive(0,6,4)
138+#if !MIN_VERSION_primitive(0,7,0)
138139import qualified Data.Primitive.UnliftedArray as PM
140+#endif
139141import qualified Data.Primitive.PrimArray as PM
140142#endif
141143
@@ -1957,11 +1959,13 @@ instance (PM.Prim a,ToJSON a) => ToJSON (PM.PrimArray a) where
19571959 toJSON = toJSON . Exts.toList
19581960 toEncoding = toEncoding . Exts.toList
19591961
1962+#if !MIN_VERSION_primitive(0,7,0)
19601963instance (PM.PrimUnlifted a,ToJSON a) => ToJSON (PM.UnliftedArray a) where
19611964 toJSON = toJSON . Exts.toList
19621965 toEncoding = toEncoding . Exts.toList
19631966#endif
19641967#endif
1968+#endif
19651969
19661970-------------------------------------------------------------------------------
19671971-- time