Fix dodgy import in hls-semantic-token-plugin

Author: fendor

ghcide/src/Development/IDE/GHC/Compat/Core.hs

@@ -461,7 +461,7 @@ import           GHC.Tc.Types.Evidence       hiding ((<.>))
 import           GHC.Tc.Utils.Env
 import           GHC.Tc.Utils.Monad          hiding (Applicative (..), IORef,
                                               MonadFix (..), MonadIO (..), allM,
-                                              anyM, concatMapM, mapMaybeM,
+                                              anyM, concatMapM, mapMaybeM, foldMapM,
                                               (<$>))
 import           GHC.Tc.Utils.TcType         as TcType
 import qualified GHC.Types.Avail             as Avail
@@ -573,7 +573,7 @@ import           GHC.Hs                      (SrcSpanAnn')
 
 mkHomeModLocation :: DynFlags -> ModuleName -> FilePath -> IO Module.ModLocation
 #if MIN_VERSION_ghc(9,11,0)
-mkHomeModLocation df mn f = 
+mkHomeModLocation df mn f =
   let osf = unsafeEncodeUtf f
   in pure $ GHC.mkHomeModLocation (GHC.initFinderOpts df) mn osf
 #else

plugins/hls-semantic-tokens-plugin/src/Ide/Plugin/SemanticTokens/Tokenize.hs

@@ -20,7 +20,7 @@ import qualified Data.Text.Rope                   as Char
 import qualified Data.Text.Utf16.Rope             as Utf16
 import           Data.Text.Utf16.Rope.Mixed       (Rope)
 import qualified Data.Text.Utf16.Rope.Mixed       as Rope
-import           Development.IDE.GHC.Compat       hiding (foldMapM)
+import           Development.IDE.GHC.Compat
 import           Development.IDE.GHC.Error        (realSrcSpanToCodePointRange)
 import           Ide.Plugin.SemanticTokens.Types  (HsSemanticTokenType (TModule),
                                                    RangeHsSemanticTokenTypes (..))

plugins/hls-semantic-tokens-plugin/test/SemanticTokensTest.hs

@@ -10,8 +10,7 @@ import           Data.Functor                       (void)
 import qualified Data.List                          as T
 import           Data.Map.Strict                    as Map hiding (map)
 import           Data.String                        (fromString)
-import           Data.Text                          hiding (length, map, show,
-                                                     unlines)
+import           Data.Text                          (Text)
 import qualified Data.Text                          as Text
 import qualified Data.Text.Utf16.Rope.Mixed         as Rope
 import           Data.Version                       (Version (..))