Removed the orphan instances of Generic and instead use deriving newtype

mgsloan · Nov 28, 2024 · 842b100 · 842b100
1 parent 835c41d
commit 842b100
Showing 1 changed file with 4 additions and 6 deletions.
diff --git a/src/Data/Store/Internal.hs b/src/Data/Store/Internal.hs
@@ -4,6 +4,7 @@
 {-# LANGUAGE DeriveDataTypeable #-}
 {-# LANGUAGE DeriveFunctor #-}
 {-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE DerivingStrategies #-}
 {-# LANGUAGE FlexibleContexts #-}
 {-# LANGUAGE FlexibleInstances #-}
 {-# LANGUAGE GeneralizedNewtypeDeriving #-}
@@ -792,12 +793,9 @@ instance Store a => Store (Maybe a)
 instance Store a => Store (Const a b)
 
 #if MIN_VERSION_vector(0,13,2)
-instance Store a => Store (UV.DoNotUnboxLazy a)
-deriving instance Generic (UV.DoNotUnboxLazy a)
-instance Store a => Store (UV.DoNotUnboxStrict a)
-deriving instance Generic (UV.DoNotUnboxStrict a)
-instance Store a => Store (UV.DoNotUnboxNormalForm a)
-deriving instance Generic (UV.DoNotUnboxNormalForm a)
+deriving newtype instance Store a => Store (UV.DoNotUnboxLazy a)
+deriving newtype instance Store a => Store (UV.DoNotUnboxStrict a)
+deriving newtype instance Store a => Store (UV.DoNotUnboxNormalForm a)
 #endif
 
 ------------------------------------------------------------------------