@@ -8,6 +8,8 @@ module Development.IDE.Spans.AtPoint (
88 , gotoDefinition
99 ) where
1010
11+import Debug.Trace
12+
1113import Development.IDE.Spans.Documentation
1214import Development.IDE.GHC.Error
1315import Development.IDE.GHC.Orphans()
@@ -89,10 +91,11 @@ atPoint IdeOptions{..} tcs srcSpans pos = do
8991 Nothing -> False
9092
9193locationsAtPoint :: forall m . MonadIO m => (FilePath -> m (Maybe HieFile)) -> IdeOptions -> HscEnv -> Position -> [SpanInfo] -> m [Location]
92−locationsAtPoint getHieFile IdeOptions{..} pkgState pos =
93− fmap (map srcSpanToLocation) .
94− mapMaybeM (getSpan . spaninfoSource) .
95− spansAtPoint pos
94+locationsAtPoint getHieFile IdeOptions{..} pkgState pos spans =
95+ traceShow (pos, spans, spansAtPoint pos spans) $
96+ fmap (map srcSpanToLocation) $
97+ mapMaybeM (getSpan . spaninfoSource) $
98+ spansAtPoint pos spans
9699 where getSpan :: SpanSource -> m (Maybe SrcSpan)
97100 getSpan NoSource = pure Nothing
98101 getSpan (SpanS sp) = pure $ Just sp