Make it compile cleanly on GHC 8.10.7 and GHC 9.4.7

cabal.ghc-9.4.7.project

+with-compiler: ghc-9.4.7
+
+packages: .
+tests: True

crawlerHAL.cabal

@@ -48,7 +48,7 @@ library
       RecordWildCards
       TypeOperators
   build-depends:
-      aeson >= 1.5.6 && < 1.6
+      aeson >= 1.5.6 && < 2.3
     , base >=4.7 && <5
     , bytestring >= 0.11.0 && < 0.13
     , conduit >= 1.3.5 && < 1.4
@@ -62,8 +62,8 @@ library
     , optparse-applicative >= 0.17 && < 0.19
     , protolude >= 0.3.3 && < 0.4
     , scientific >= 0.3.7.0 && < 0.4
-    , servant >= 0.19 && < 0.21
-    , servant-client >= 0.19 && < 0.21
+    , servant >= 0.19 && < 0.20
+    , servant-client >= 0.19 && < 0.20
     , split >= 0.2.3.5 && < 0.3
     , text >= 1.2.3.0 && < 2.1
     , text-format >= 0.3.2.1 && < 0.4

src/HAL.hs

-module HAL where
-
 {-# LANGUAGE BangPatterns #-}
 
+module HAL where
+
 import Conduit
 import Control.Monad
 import Control.Monad.Reader

src/HAL/Doc/Corpus.hs

@@ -6,11 +6,13 @@ import Control.Lens qualified as L
 import Data.Aeson
 import Data.Default
 import Data.Map.Strict qualified as Map
+import Data.String
 import GHC.Generics
 import HAL.Utils (allLangs, langAbstractS)
 import Data.LanguageCodes (ISO639_1(..))
 import Protolude
 import Servant.API (ToHttpApiData(..))
+import qualified Data.Text as T
 
 data Corpus = Corpus
   { _corpus_docid                :: Text
@@ -42,7 +44,7 @@ instance FromJSON Corpus where
 
     abstracts <-
       mapM (\lang -> do
-               ma <- o .:? (langAbstractS lang)
+               ma <- o .:? (fromString $ T.unpack $ langAbstractS lang)
                pure $ (\a -> (lang, a)) <$> ma) allLangs
     let _corpus_abstract_lang_map = Map.fromList $ catMaybes abstracts