Skip to content

Commit

Permalink
Make it build with ghc 9.8. Adjust CI config
Browse files Browse the repository at this point in the history
  • Loading branch information
jhrcek committed Oct 2, 2024
1 parent a545932 commit aa9f155
Show file tree
Hide file tree
Showing 2 changed files with 4 additions and 3 deletions.
4 changes: 2 additions & 2 deletions .github/workflows/cabal.yml
Original file line number Diff line number Diff line change
Expand Up @@ -9,13 +9,13 @@ jobs:
strategy:
matrix:
os: [ubuntu-latest, macOS-latest]
ghc: ["9.4", "9.6", "9.8", "9.10"]
ghc: ["9.6", "9.8", "9.10"]
fail-fast: false

steps:
- uses: actions/checkout@v2

- uses: haskell/actions/setup@v2
- uses: haskell-actions/setup@v2
name: Setup Haskell Cabal
with:
ghc-version: ${{ matrix.ghc }}
Expand Down
3 changes: 2 additions & 1 deletion lib/Language/Haskell/Stylish/Step/SimpleAlign.hs
Original file line number Diff line number Diff line change
Expand Up @@ -13,6 +13,7 @@ module Language.Haskell.Stylish.Step.SimpleAlign
import Data.Either (partitionEithers)
import Data.Foldable (toList)
import Data.List (foldl1', sortOn)
import qualified Data.List as List
import Data.Maybe (fromMaybe)
import qualified GHC.Hs as Hs
import qualified GHC.Parser.Annotation as GHC
Expand Down Expand Up @@ -117,7 +118,7 @@ matchToAlignable (GHC.L matchLoc m@(Hs.Match _ Hs.CaseAlt pats@(_ : _) grhss)) =
pat = last patsLocs
guards = getGuards m
guardsLocs = map GHC.getLocA guards
left = foldl' GHC.combineSrcSpans pat guardsLocs
left = List.foldl' GHC.combineSrcSpans pat guardsLocs
body <- rhsBody grhss
matchPos <- GHC.srcSpanToRealSrcSpan $ GHC.locA matchLoc
leftPos <- GHC.srcSpanToRealSrcSpan left
Expand Down

0 comments on commit aa9f155

Please sign in to comment.