Build with GHC 9.0.2

Could solve the problem found in #200

Author: igrep

.circleci/config.yml

@@ -3,7 +3,7 @@ jobs:
   build:
     # Ref: https://mmhaskell.com/blog/2018/4/25/dockerizing-our-haskell-app
     docker:
-    - image: haskell:8.6.3
+    - image: haskell:9.0.2-slim
     steps:
     - run: apt update
     - run: apt install -y zip jq curl
@@ -18,8 +18,8 @@ jobs:
         - 'dependencies-'
     # 下記のパッケージはビルド時にメモリが不足するため、一旦 -j1 でビルドしておく
     # Ref: https://haskell.e-bigmoon.com/posts/2017/12-31-travis-out-of-memory.html
-    - run: stack build --compiler=ghc-8.6.3 --no-terminal -j1 Cabal wai-logger
-    - run: stack build --compiler=ghc-8.6.3 --no-terminal --only-dependencies
+    #- run: stack build --compiler=ghc-9.0.2 --no-terminal -j1 Cabal wai-logger
+    - run: stack build --compiler=ghc-9.0.2 --no-terminal --only-dependencies
     - save_cache:
         key: 'dependencies-{{ checksum "stack.yaml" }}-{{ checksum "haskell-jp-blog.cabal" }}'
         paths:
@@ -30,7 +30,7 @@ jobs:
         keys:
         - 'executable-{{ checksum "src/site.hs" }}'
         - 'executable-'
-    - run: stack --compiler=ghc-8.6.3 --local-bin-path='.' --no-terminal install --pedantic
+    - run: stack --compiler=ghc-9.0.2 --local-bin-path='.' --no-terminal install --pedantic
     - save_cache:
         key: 'executable-{{ checksum "src/site.hs" }}'
         paths:
@@ -58,7 +58,7 @@ jobs:
 
   deploy:
     docker:
-    - image: haskell:8.6.3
+    - image: haskell:9.0.2-slim
     steps:
     - checkout:
         path: ~/project

haskell-jp-blog.cabal

@@ -14,6 +14,7 @@ executable site
                   , hakyll
                   , pandoc-types
                   , skylighting
+                  , text
                   , filepath
   ghc-options:      -threaded -Wall
   default-language: Haskell2010

src/site.hs

@@ -12,7 +12,7 @@ import Data.Data (Data)
 import Data.Default (def)
 import Data.List.NonEmpty (NonEmpty((:|)), groupBy, toList)
 import Data.Maybe (fromMaybe)
-import Data.Monoid ((<>))
+import qualified Data.Text as T
 import qualified Data.Tree as Tree
 import Data.Typeable (Typeable)
 import Hakyll
@@ -189,7 +189,7 @@ isDraftPost ident = do
     isDraft <- fromMaybe "false" <$> getMetadataField ident "draft"
     return $ isDraft == "true"
 
-postItemIdentifiers :: MonadMetadata m => m [Identifier]
+postItemIdentifiers :: (MonadFail m, MonadMetadata m) => m [Identifier]
 postItemIdentifiers = do
     idents <- getMatches "posts/**"
     idents' <- filterM (fmap not . isDraftPost) idents
@@ -254,15 +254,15 @@ addSpaceAroundAsciiInlines = concatMap addSpaceInline
 -- 'textLangToInline'.  Blocks of Latin text will be placed in @\<span\>@ tags
 -- with an @\"ascii\"@ class.
 addSpaceInline :: Inline -> [Inline]
-addSpaceInline (Str string) = textLangToInline <$> splitOnLanguage string
+addSpaceInline (Str string) = textLangToInline <$> splitOnLanguage (T.unpack string)
 addSpaceInline inline = [inline]
 
 -- | This is a tag around a 'String' representing whether the 'String' is Latin
 -- ('English') or 'Japanese'.  'String's that are neither Latin or 'Japanese'
 -- are treated as 'Japanese'.  See 'charLangToTextLang'.
 data TextLang
-  = Japanese String
-  | English String
+  = Japanese T.Text
+  | English T.Text
   deriving (Data, Eq, Read, Show, Typeable)
 
 -- | This is a tag around a 'Char' representing whether the 'Char' is Latin or
@@ -384,11 +384,11 @@ groupByCharLang = groupBy f
 -- Japanese "\20132\30058"
 charLangToTextLang :: NonEmpty CharLang -> TextLang
 charLangToTextLang cs@(JapaneseChar{} :| _) =
-  Japanese . toList $ charLangToChar <$> cs
+  Japanese . T.pack . toList $ charLangToChar <$> cs
 charLangToTextLang cs@(EnglishChar{} :| _) =
-  English . toList $ charLangToChar <$> cs
+  English . T.pack . toList $ charLangToChar <$> cs
 
-getFeedConfig :: MonadMetadata m => Identifier -> m FeedConfiguration
+getFeedConfig :: (MonadFail m, MonadMetadata m) => Identifier -> m FeedConfiguration
 getFeedConfig ident = do
     feedTitle       <- getMetadataField' ident "title"
     feedDescription <- getMetadataField' ident "description"
@@ -407,15 +407,15 @@ data PostSection = PostSection
   } deriving Show
 
 -- | Extract element ID from `Attr`.
-attrId :: Attr -> String
+attrId :: Attr -> T.Text
 attrId (x, _, _) = x
 
 -- | Construct `Attr` with ID.
-idAttr :: String -> Attr
+idAttr :: T.Text -> Attr
 idAttr s = (s, [], [])
 
 -- | Construct `Attr` with one class.
-classAttr :: String -> Attr
+classAttr :: T.Text -> Attr
 classAttr s = ("", [s], [])
 
 -- | Eliminate all links from `Block`s or `Inline`s.
@@ -469,7 +469,7 @@ makeTOCList xs0@(x0 : _) = PB.bulletList $ Tree.foldTree fld <$> unfoldTree_DF u
 
     listItem :: PostSection -> PB.Blocks
     listItem PostSection{..} =
-        PB.plain $ PB.link ("#" ++ attrId psHeaderAttr)
+        PB.plain $ PB.link ("#" <> attrId psHeaderAttr)
                            (attrId psHeaderAttr)
                            (PB.fromList $ elimLink psHeaderInline)
 
@@ -482,7 +482,7 @@ makeSectionBlock PostSection{..} = hd <> PB.fromList psContent
            <> PB.fromList psHeaderInline
 
     anchor = PB.spanWith (classAttr "link-to-here-outer") $
-               PB.link ("#" ++ attrId psHeaderAttr)
+               PB.link ("#" <> attrId psHeaderAttr)
                        (attrId psHeaderAttr) $
                  PB.spanWith (classAttr "link-to-here") $
                    PB.str "Link to" <> PB.linebreak <> PB.str "here"

stack.yaml

@@ -2,6 +2,5 @@ flags: {}
 packages:
 - '.'
 extra-deps:
-- hakyll-4.12.5.1
-- lrucache-1.2.0.1
-resolver: lts-13.11
+  []
+resolver: lts-19.22

stack.yaml.lock

@@ -3,24 +3,10 @@
 # For more information, please see the documentation at:
 #   https://docs.haskellstack.org/en/stable/lock_files
 
-packages:
-- completed:
-    hackage: hakyll-4.12.5.1@sha256:d1948b265e6628bcb6875571212f9acefe23179c73ca4f87f417b290ff381ca6,8677
-    pantry-tree:
-      size: 7631
-      sha256: ac35d6b2a3b6d87517ff5184430a283c378330ec5da6f7dce26416568bf134ee
-  original:
-    hackage: hakyll-4.12.5.1
-- completed:
-    hackage: lrucache-1.2.0.1@sha256:18fc3d7052012c7ab3cd395160f34b53c5e1ec5379cc45185baf35b90ffadc2e,1254
-    pantry-tree:
-      size: 619
-      sha256: 61b2a39a11873f2d8a577e1f6b5e848d2f465ea7f6837ce15436796d3a20eda0
-  original:
-    hackage: lrucache-1.2.0.1
+packages: []
 snapshots:
 - completed:
-    size: 495801
-    url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/13/11.yaml
-    sha256: 835062158db2b3ebb8b9525d9662a02ebf9783e8f6a08a64684cd5546f847152
-  original: lts-13.11
+    size: 619399
+    url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/19/22.yaml
+    sha256: 5098594e71bdefe0c13e9e6236f12e3414ef91a2b89b029fd30e8fc8087f3a07
+  original: lts-19.22