fixup refactor onlyWorkForGhcVersions

Author: pepeiborra

plugins/hls-gadt-plugin/test/Main.hs

@@ -37,11 +37,11 @@ tests = testGroup "GADT"
     , runTest "Pragma" "Pragma" 2 0 3 29
     , onlyWorkForGhcVersions (==GHC92) "Single deriving has different output on ghc9.2" $
         runTest "SingleDerivingGHC92" "SingleDerivingGHC92" 2 0 3 14
-    , knownBrokenForGhcVersions (==GHC92) "Single deriving has different output on ghc9.2" $
+    , knownBrokenForGhcVersions [GHC92] "Single deriving has different output on ghc9.2" $
         runTest "SingleDeriving" "SingleDeriving" 2 0 3 14
     , onlyWorkForGhcVersions (==GHC92) "only ghc-9.2 enabled GADTs pragma implicitly" $
         gadtPragmaTest "ghc-9.2 don't need to insert GADTs pragma" False
-    , knownBrokenForGhcVersions (==GHC92) "ghc-9.2 has enabled GADTs pragma implicitly" $
+    , knownBrokenForGhcVersions [GHC92] "ghc-9.2 has enabled GADTs pragma implicitly" $
         gadtPragmaTest "insert pragma" True
     ]
 

plugins/hls-refactor-plugin/test/Main.hs

@@ -1,64 +1,64 @@
-{-# LANGUAGE LambdaCase            #-}
-{-# LANGUAGE OverloadedStrings     #-}
 {-# LANGUAGE AllowAmbiguousTypes   #-}
 {-# LANGUAGE CPP                   #-}
 {-# LANGUAGE DataKinds             #-}
 {-# LANGUAGE DuplicateRecordFields #-}
 {-# LANGUAGE GADTs                 #-}
 {-# LANGUAGE ImplicitParams        #-}
+{-# LANGUAGE LambdaCase            #-}
 {-# LANGUAGE MultiWayIf            #-}
+{-# LANGUAGE NamedFieldPuns        #-}
+{-# LANGUAGE OverloadedStrings     #-}
 {-# LANGUAGE PatternSynonyms       #-}
 {-# LANGUAGE PolyKinds             #-}
-{-# LANGUAGE TypeOperators         #-}
-{-# LANGUAGE NamedFieldPuns        #-}
 {-# LANGUAGE RecordWildCards       #-}
+{-# LANGUAGE TypeOperators         #-}
 {-# OPTIONS_GHC -Wno-deprecations -Wno-unticked-promoted-constructors #-}
 
 module Main
   ( main
   ) where
 
 import           Control.Applicative.Combinators
+import           Control.Lens                             ((^.))
 import           Control.Monad
 import           Data.Default
 import           Data.Foldable
 import           Data.List.Extra
 import           Data.Maybe
 import qualified Data.Text                                as T
-import           Development.IDE.Test
+import           Data.Tuple.Extra
 import           Development.IDE.GHC.Util
 import           Development.IDE.Plugin.Completions.Types (extendImportCommandId)
+import           Development.IDE.Test
 import           Development.IDE.Types.Location
 import           Development.Shake                        (getDirectoryFilesIO)
+import           Ide.Types
 import           Language.LSP.Test
 import           Language.LSP.Types                       hiding
                                                           (SemanticTokenAbsolute (length, line),
                                                            SemanticTokenRelative (length),
                                                            SemanticTokensEdit (_start),
                                                            mkRange)
-import qualified Language.LSP.Types.Lens                  as L
+import qualified Language.LSP.Types                       as LSP
 import           Language.LSP.Types.Capabilities
+import qualified Language.LSP.Types.Lens                  as L
 import           System.Directory
 import           System.FilePath
 import           System.Info.Extra                        (isMac, isWindows)
 import qualified System.IO.Extra
 import           System.IO.Extra                          hiding (withTempDir)
-import           Control.Lens                             ((^.))
-import           Data.Tuple.Extra
-import           Ide.Types
-import qualified Language.LSP.Types                       as LSP
 import           System.Time.Extra
 import           Test.Tasty
 import           Test.Tasty.ExpectedFailure
 import           Test.Tasty.HUnit
 import           Text.Regex.TDFA                          ((=~))
 
 
-import           Test.Hls
 import           Development.IDE.Plugin.CodeAction        (matchRegExMultipleImports)
+import           Test.Hls
 
-import qualified Development.IDE.Plugin.CodeAction as Refactor
-import qualified Development.IDE.Plugin.HLS.GhcIde as GhcIde
+import qualified Development.IDE.Plugin.CodeAction        as Refactor
+import qualified Development.IDE.Plugin.HLS.GhcIde        as GhcIde
 
 main :: IO ()
 main = defaultTestRunner tests