switch to GHC2024

This commit is contained in:
rhiannon morris 2024-07-07 20:04:38 +02:00
parent 5031058bde
commit d06f749b8c
5 changed files with 8 additions and 24 deletions

View File

@ -1,4 +1,4 @@
{-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE PatternSynonyms, TemplateHaskell #-}
module BuilderQQ module BuilderQQ
(b, (b,
Builder, toStrictText, toLazyText, fromText, fromString, fromChar, Builder, toStrictText, toLazyText, fromText, fromString, fromChar,

View File

@ -1,4 +1,4 @@
{-# LANGUAGE CPP, ImplicitParams, TypeApplications #-} {-# LANGUAGE CPP, ImplicitParams #-}
module Main (main) where module Main (main) where
import Control.Monad import Control.Monad

View File

@ -1,5 +1,4 @@
{-# OPTIONS_GHC -Wno-orphans #-} {-# OPTIONS_GHC -Wno-orphans #-}
{-# LANGUAGE MultiParamTypeClasses, ScopedTypeVariables, TypeApplications #-}
module Records (HasField (..)) where module Records (HasField (..)) where
import GHC.Records import GHC.Records

View File

@ -250,9 +250,10 @@ makeButtonBar title images =
| [(_, imgs)] <- cats -> | [(_, imgs)] <- cats ->
makeButtonBar title (Uncat imgs) makeButtonBar title (Uncat imgs)
| otherwise -> | otherwise ->
makeNav "cat" $ map (uncurry makeCat) cats makeNav "cat" $ map (uncurry makeCat) cats
where where
makeNav (cls :: Text) inner = [b|@0 makeNav :: CanBuild b => Text -> b -> Builder
makeNav cls inner = [b|@0
<nav id=alts class=$cls aria-label="alternate versions"> <nav id=alts class=$cls aria-label="alternate versions">
$2.inner $2.inner
$2.skipAll $2.skipAll

View File

@ -26,39 +26,23 @@ executable make-pages
RSS, RSS,
ListTags, ListTags,
Options Options
default-language: Haskell2010 default-language: GHC2024
default-extensions: default-extensions:
BlockArguments, BlockArguments,
ConstraintKinds,
DataKinds,
DeriveAnyClass, DeriveAnyClass,
DeriveTraversable,
DerivingStrategies,
DerivingVia, DerivingVia,
DuplicateRecordFields, DuplicateRecordFields,
FlexibleContexts,
FlexibleInstances,
GeneralizedNewtypeDeriving,
LambdaCase,
NamedFieldPuns,
OverloadedLabels, OverloadedLabels,
OverloadedLists, OverloadedLists,
OverloadedStrings, OverloadedStrings,
PatternSynonyms,
QuasiQuotes, QuasiQuotes,
RankNTypes,
ScopedTypeVariables,
StandaloneDeriving,
TupleSections,
TypeSynonymInstances, TypeSynonymInstances,
ViewPatterns ViewPatterns
other-extensions: other-extensions:
PatternSynonyms,
CPP, CPP,
ImplicitParams, ImplicitParams,
MultiParamTypeClasses, TemplateHaskell
ScopedTypeVariables,
TemplateHaskell,
TypeApplications
build-depends: build-depends:
base >= 4.16.4 && < 4.21, base >= 4.16.4 && < 4.21,
bytestring >= 0.11.3.1 && < 0.14, bytestring >= 0.11.3.1 && < 0.14,