hashable requires more ceremony

Author: L0neGamer

OneTuple.cabal

@@ -59,7 +59,9 @@ library
   if impl(ghc >=9.0)
     build-depends: ghc-prim
   else
-    build-depends: hashable >=1.3.5.0 && <1.6
+    build-depends: hashable >=1.2.5.0 && <1.6
+    cpp-options:
+      -DDEFINE_HASHABLE
 
   if impl(ghc) && !impl(ghc >=9.0)
     build-depends: foldable1-classes-compat >=0.1 && <0.2

src/Data/Tuple/Solo.hs

@@ -30,6 +30,13 @@ module Data.Tuple.Solo (
 import Data.Orphans ()
 #endif
 
+#if defined(DEFINE_HASHABLE)
+#if !MIN_VERSION_hashable(1,3,5) || defined(__GLASGOW_HASKELL__)
+import Data.Hashable        (Hashable (..))
+import Data.Hashable.Lifted (Hashable1 (..), hashWithSalt1)
+#endif
+#endif
+
 #if defined(__MHS__)
 import Data.Tuple (Solo (MkSolo), getSolo)
 
@@ -81,11 +88,6 @@ import qualified Data.Foldable1 as F1
 
 import Data.Functor.Classes (Eq1 (..), Ord1 (..), Show1 (..), Read1 (..))
 
-#if !(MIN_VERSION_base(4,15,0))
-import Data.Hashable        (Hashable (..))
-import Data.Hashable.Lifted (Hashable1 (..), hashWithSalt1)
-#endif
-
 import Data.Functor.Classes (readData, readUnaryWith, liftReadListDefault, liftReadListPrecDefault)
 import GHC.Generics        (Generic, Generic1)
 import Control.Monad.Zip   (MonadZip (..))
@@ -197,7 +199,8 @@ instance Show1 Solo where
       showString "MkSolo " . sp 11 x
 #endif
 
-#if !(MIN_VERSION_base(4,15,0))
+#if defined(DEFINE_HASHABLE)
+#if !MIN_VERSION_hashable(1,3,5) || defined(__GLASGOW_HASKELL__)
 -- | @since 0.3.1
 instance Hashable a => Hashable (Solo a) where
     hashWithSalt = hashWithSalt1
@@ -206,3 +209,4 @@ instance Hashable a => Hashable (Solo a) where
 instance Hashable1 Solo where
     liftHashWithSalt h salt (MkSolo a) = h salt a
 #endif
+#endif