Support for GHC 9.8.1

.ghci

@@ -6,4 +6,4 @@
 :set -XRecordWildCards
 :set -XViewPatterns
 
-:set -DTEST -isrc -itest -hide-packagebase-compat-batteries
+:set -DTEST -isrc -itest

.github/workflows/build.yml

@@ -24,6 +24,7 @@ jobs:
           - '9.2'
           - '9.4'
           - '9.6'
+          - '9.8'
         include:
           - os: macos-latest
             ghc: system

src/Imports.hs

@@ -7,7 +7,7 @@ import           Control.Exception as Imports hiding (handle)
 import           Control.Monad as Imports
 import           Data.Function as Imports (fix)
 import           Control.Applicative as Imports
-import           Data.Functor as Imports
+import           Data.Functor as Imports ((<&>))
 import           Data.Bifunctor as Imports
 import           Data.Char as Imports
 import           Data.Either as Imports

src/Session.hs

@@ -26,8 +26,7 @@ import           Imports
 
 import           Data.IORef
 
-import           Language.Haskell.GhciWrapper hiding (echo)
-import qualified Language.Haskell.GhciWrapper as Interpreter
+import           Language.Haskell.GhciWrapper
 
 import           Util
 import           Options

test/TriggerSpec.hs

@@ -122,7 +122,7 @@ spec = do
             , "  Spec.hs:8:3: "
             , "  1) bar"
             , ""
-            , "  To rerun use: --match \"/bar/\""
+            , "  To rerun use: --match \"/bar/\" --seed 0"
             , ""
             , "Randomized with seed 0"
             , ""
@@ -221,7 +221,7 @@ spec = do
             , "  Spec.hs:8:3: "
             , "  1) bar"
             , ""
-            , "  To rerun use: --match \"/bar/\""
+            , "  To rerun use: --match \"/bar/\" --seed 0"
             , ""
             , "Randomized with seed 0"
             , ""