Support GHC 9.0.2

.github/workflows/haskell-ci.yml

@@ -28,9 +28,9 @@ jobs:
     strategy:
       matrix:
         include:
-          - compiler: ghc-9.4.7
+          - compiler: ghc-9.0.2
             compilerKind: ghc
-            compilerVersion: 9.4.7
+            compilerVersion: 9.0.2
             setup-method: ghcup
             allow-failure: false
       fail-fast: false

glirc.cabal

@@ -19,10 +19,10 @@ extra-source-files:  exec/linux_exported_symbols.txt
 extra-doc-files:     glirc.1 ChangeLog.md README.md
 homepage:            https://github.com/glguy/irc-core
 bug-reports:         https://github.com/glguy/irc-core/issues
-tested-with:         GHC==9.4.7
+tested-with:         GHC == 9.0.2, GHC == 9.2.2, GHC == 9.4.7
 
 custom-setup
-  setup-depends: base     >=4.12 && <4.20,
+  setup-depends: base     >=4.15 && <4.20,
                  filepath >=1.4  && <1.6,
                  Cabal    >=2.2  && <4
 

src/Client/Commands/ZNC.hs

@@ -9,7 +9,7 @@ Maintainer  : [email protected]
 
 module Client.Commands.ZNC (zncCommands) where
 
-import Control.Applicative (asum, liftA2)
+import Control.Applicative ((<|>), empty, liftA2)
 import Client.Commands.Arguments.Spec (optionalArg, remainingArg, simpleToken)
 import Client.Commands.TabCompletion (noNetworkTab, simpleNetworkTab)
 import Client.Commands.Types
@@ -91,7 +91,8 @@ cmdZncPlayback cs st args =
     timeFormats = ["%k:%M:%S","%k:%M"]
     dateFormats = ["%F"]
     parseFormats formats str =
-      asum (map (parseTimeM False defaultTimeLocale ?? str) formats)
+      -- asum requires base >= 4.16
+      foldr (<|>) empty (map (parseTimeM False defaultTimeLocale ?? str) formats)
 
     successZoned = success . formatTime defaultTimeLocale "%s"