File tree 2 files changed +6
-13
lines changed
plugins/hls-refactor-plugin
2 files changed +6
-13
lines changed Original file line number Diff line number Diff line change @@ -110,8 +110,6 @@ test-suite tests
110
110
, hls-test-utils == 2.6.0.0
111
111
, lens
112
112
, lsp-types
113
- -- for MIN_VERSION_ghc
114
- , ghc
115
113
, text
116
114
, hls-plugin-api
117
115
, parser-combinators
Original file line number Diff line number Diff line change 1
1
{-# LANGUAGE AllowAmbiguousTypes #-}
2
- {-# LANGUAGE CPP #-}
3
2
{-# LANGUAGE DataKinds #-}
4
3
{-# LANGUAGE DuplicateRecordFields #-}
5
4
{-# LANGUAGE GADTs #-}
@@ -701,11 +700,9 @@ typeWildCardActionTests = testGroup "type wildcard actions"
701
700
[ " func :: _"
702
701
, " func x y = x + y"
703
702
]
704
- #if MIN_VERSION_ghc(9,7,0)
705
- [ " func :: a -> a -> a" -- 9.8 has a different suggestion
706
- #else
707
- [ " func :: Integer -> Integer -> Integer"
708
- #endif
703
+ [ if ghcVersion >= GHC98
704
+ then " func :: a -> a -> a" -- 9.8 has a different suggestion
705
+ else " func :: Integer -> Integer -> Integer"
709
706
, " func x y = x + y"
710
707
]
711
708
, testUseTypeSignature " type in parentheses"
@@ -733,11 +730,9 @@ typeWildCardActionTests = testGroup "type wildcard actions"
733
730
[ " func::_"
734
731
, " func x y = x + y"
735
732
]
736
- #if MIN_VERSION_ghc(9,7,0)
737
- [ " func::a -> a -> a" -- 9.8 has a different suggestion
738
- #else
739
- [ " func::Integer -> Integer -> Integer"
740
- #endif
733
+ [ if ghcVersion >= GHC98
734
+ then " func::a -> a -> a" -- 9.8 has a different suggestion
735
+ else " func::Integer -> Integer -> Integer"
741
736
, " func x y = x + y"
742
737
]
743
738
, testGroup " add parens if hole is part of bigger type"
You can’t perform that action at this time.
0 commit comments