Remove toCurrentRange

Author: berberman

plugins/hls-haddock-comments-plugin/src/Ide/Plugin/HaddockComments.hs

@@ -14,7 +14,6 @@ import qualified Data.HashMap.Strict as HashMap
 import qualified Data.Map as Map
 import qualified Data.Text as T
 import Development.IDE
-import Development.IDE.Core.PositionMapping
 import Development.IDE.GHC.Compat
 import Ide.Types
 import Language.Haskell.GHC.ExactPrint
@@ -126,7 +125,7 @@ calcRange :: SrcSpan -> Range -> Maybe Range
 calcRange src range
   | inRange range src,
     (RealSrcSpan span) <- src,
-    Just range' <- toCurrentRange zeroMapping $ realSrcSpanToRange span =
+    range' <- realSrcSpanToRange span =
     Just range'
   | otherwise = Nothing