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                                                         }
@@ -28,7 +28,6 @@ common exceptions                   { build-depends: exceptions
 common filepath                     { build-depends: filepath                                                     }
 common hedgehog                     { build-depends: hedgehog                                                     }
 common http-conduit                 { build-depends: http-conduit                                                 }
-common hw-aeson                     { build-depends: hw-aeson                         >= 0.1.8.0                  }
 common mmorph                       { build-depends: mmorph                                                       }
 common mtl                          { build-depends: mtl                                                          }
 common network                      { build-depends: network                                                      }
@@ -41,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                                                         }
 
@@ -73,7 +71,6 @@ library
                         filepath,
                         hedgehog,
                         http-conduit,
-                        hw-aeson,
                         mmorph,
                         mtl,
                         network,
@@ -86,7 +83,6 @@ library
                         time,
                         transformers,
                         unliftio,
-                        unordered-containers,
                         Win32,
                         yaml,
                         zlib,

src/Hedgehog/Extras/Stock/Aeson.hs

@@ -4,18 +4,14 @@ 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 HaskellWorks.Data.Aeson.Compat.Map 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'.