Remove unused function and add comment

Author: fendor

hie-plugin-api/Haskell/Ide/Engine/TypeMap.hs

@@ -31,9 +31,11 @@ genTypeMap tm = do
   hs_env <- GHC.getSession
   liftIO $ types hs_env typecheckedSource
 
-collectAllSpansTypes'
-  :: GHC.GhcMonad m => Bool -> TypecheckedModule -> m [(GHC.SrcSpan, GHC.Type)]
-collectAllSpansTypes' = collectAllSpansTypes
+
+everythingInTypecheckedSourceM
+  :: Data x => (forall a . Data a => a -> IO TypeMap) -> x -> IO TypeMap
+everythingInTypecheckedSourceM f = everythingButTypeM @GHC.Id f
+
 
 -- | Obtain details map for types.
 types :: GHC.HscEnv -> GHC.TypecheckedSource -> IO TypeMap
@@ -53,11 +55,6 @@ types hs_env = everythingInTypecheckedSourceM (ty `combineM` fun)
       return (IM.singleton (rspToInt spn) (TcHsSyn.hsPatType hsPatType))
     _ -> return IM.empty
 
-
-everythingInTypecheckedSourceM
-  :: Data x => (forall a . Data a => a -> IO TypeMap) -> x -> IO TypeMap
-everythingInTypecheckedSourceM f = everythingButTypeM @GHC.Id f
-
 -- | Combine two queries into one using alternative combinator.
 combineM
   :: (forall a . Data a => a -> IO TypeMap)
@@ -115,7 +112,7 @@ everythingButM f x = do
 -- Since the above is quite costly, we just skip cases where computing the
 -- expression's type is going to be expensive.
 --
--- See #16233
+-- See #16233<https://gitlab.haskell.org/ghc/ghc/issues/16233>
 getType
   :: GHC.HscEnv -> GHC.LHsExpr GHC.GhcTc -> IO (Maybe (GHC.SrcSpan, Type.Type))
 getType hs_env e@(GHC.L spn e') =