Make it build with ghc-9.8

Drop hw-aeson dependency on the way.

Author: erikd

hedgehog-extras.cabal

@@ -19,7 +19,7 @@ source-repository head
 common aeson                        { build-depends: aeson                            >= 2.1.0.0                  }
 common aeson-pretty                 { build-depends: aeson-pretty                     >= 0.8.5                    }
 common async                        { build-depends: async                                                        }
-common base                         { build-depends: base                             >= 4.12       && < 4.19     }
+common base                         { build-depends: base                             >= 4.12       && < 4.20     }
 common bytestring                   { build-depends: bytestring                                                   }
 common deepseq                      { build-depends: deepseq                                                      }
 common Diff                         { build-depends: Diff                                                         }
@@ -40,7 +40,6 @@ common text                         { build-depends: text
 common time                         { build-depends: time                             >= 1.9.1                    }
 common transformers                 { build-depends: transformers                                                 }
 common unliftio                     { build-depends: unliftio                                                     }
-common unordered-containers         { build-depends: unordered-containers                                         }
 common yaml                         { build-depends: yaml                                                         }
 common zlib                         { build-depends: zlib                                                         }
 
@@ -84,7 +83,6 @@ library
                         time,
                         transformers,
                         unliftio,
-                        unordered-containers,
                         Win32,
                         yaml,
                         zlib,

src/Hedgehog/Extras/Stock/Aeson.hs

@@ -4,18 +4,16 @@ module Hedgehog.Extras.Stock.Aeson
   ) where
 
 import           Data.Aeson
+import           Data.Aeson.KeyMap (KeyMap)
 import           Data.Functor
-import           Data.HashMap.Lazy
-import           Data.Text
-import           Prelude (($), (.))
 
 import qualified Data.Aeson.KeyMap as KM
 
 -- | Rewrite a JSON object to another JSON object using the function 'f'.
 --
 -- All other JSON values are preserved.
-rewriteObject :: (HashMap Text Value -> HashMap Text Value) -> Value -> Value
-rewriteObject f (Object hm) = Object (KM.fromHashMapText . f . KM.toHashMapText $ hm)
+rewriteObject :: (KeyMap Value -> KeyMap Value) -> Value -> Value
+rewriteObject f (Object hm) = Object (f hm)
 rewriteObject _ v = v
 
 -- | Rewrite each element of a JSON array using the function 'f'.