Skip to content

Commit 78e3fd1

Browse files
authored
Merge pull request #526 from haskell/mpj/9.82
9.8
2 parents fce5a9c + 560e05f commit 78e3fd1

File tree

4 files changed

+13
-4
lines changed

4 files changed

+13
-4
lines changed

.github/workflows/haskell.yml

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -14,7 +14,7 @@ jobs:
1414
strategy:
1515
fail-fast: false
1616
matrix:
17-
ghc-version: ['9.6', '9.4', '9.2', '9.0', '8.10']
17+
ghc-version: ['9.8', '9.6', '9.4', '9.2', '9.0']
1818
# Unlikely that we'll succeed on windows and fail on macos,
1919
# including it is just burning CI time. But windows could have
2020
# path or IO issues, so worth including

cabal.project

Lines changed: 6 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,4 @@
1-
index-state: 2023-07-09T00:00:00Z
1+
index-state: 2023-11-13T00:00:00Z
22

33
packages:
44
./lsp
@@ -18,3 +18,8 @@ package lsp-types
1818
-- has very many independent modules
1919
ghc-options: -j4
2020

21+
if impl(ghc >= 9.7)
22+
-- https://github.com/kcsongor/generic-lens/issues/158
23+
allow-newer:
24+
generic-lens:text,
25+
generic-lens-core:text,

lsp-types/lsp-types.cabal

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -69,7 +69,7 @@ library
6969
UndecidableInstances
7070

7171
build-depends:
72-
, aeson >=1.2.2.0 && <2.2
72+
, aeson >=1.2.2.0 && <2.3
7373
, base >=4.11 && <5
7474
, binary
7575
, containers
@@ -87,7 +87,7 @@ library
8787
, mtl <2.4
8888
, prettyprinter
8989
, network-uri >=2.6
90-
, row-types
90+
, row-types >=1.0
9191
, safe
9292
, some
9393
, template-haskell

lsp-types/src/Language/LSP/Protocol/Types/Common.hs

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -183,7 +183,11 @@ instance Semigroup s => Semigroup (s |? Null) where
183183
-- in both aeson-1 and aeson-2
184184

185185
-- | Include a value in an JSON object optionally, omitting it if it is 'Nothing'.
186+
#if MIN_VERSION_aeson(2,2,0)
187+
(.=?) :: (J.KeyValue e kv, J.ToJSON v) => String -> Maybe v -> [kv]
188+
#else
186189
(.=?) :: (J.KeyValue kv, J.ToJSON v) => String -> Maybe v -> [kv]
190+
#endif
187191
k .=? v = case v of
188192
Just v' -> [fromString k J..= v']
189193
Nothing -> mempty

0 commit comments

Comments
 (0)