git.iko.soy/ghcide
on master help sign in
debug spans
3c793e4Moritz Kiefer
src/Development/IDE/Spans/AtPoint.hs+7−4
compare with master
unifiedsplit
@@ -8,6 +8,8 @@ module Development.IDE.Spans.AtPoint (
8 , gotoDefinition
8 , gotoDefinition
9 ) where
9 ) where
10
10
11+import Debug.Trace
12+
11import Development.IDE.Spans.Documentation
13import Development.IDE.Spans.Documentation
12import Development.IDE.GHC.Error
14import Development.IDE.GHC.Error
13import Development.IDE.GHC.Orphans()
15import Development.IDE.GHC.Orphans()
@@ -89,10 +91,11 @@ atPoint IdeOptions{..} tcs srcSpans pos = do
89 Nothing -> False
91 Nothing -> False
90
92
91locationsAtPoint :: forall m . MonadIO m => (FilePath -> m (Maybe HieFile)) -> IdeOptions -> HscEnv -> Position -> [SpanInfo] -> m [Location]
93locationsAtPoint :: forall m . MonadIO m => (FilePath -> m (Maybe HieFile)) -> IdeOptions -> HscEnv -> Position -> [SpanInfo] -> m [Location]
92−locationsAtPoint getHieFile IdeOptions{..} pkgState pos =
94+locationsAtPoint getHieFile IdeOptions{..} pkgState pos spans =
95+ traceShow (pos, spans, spansAtPoint pos spans) $
93− fmap (map srcSpanToLocation) .
96+ fmap (map srcSpanToLocation) $
94− mapMaybeM (getSpan . spaninfoSource) .
97+ mapMaybeM (getSpan . spaninfoSource) $
95− spansAtPoint pos
98+ spansAtPoint pos spans
96 where getSpan :: SpanSource -> m (Maybe SrcSpan)
99 where getSpan :: SpanSource -> m (Maybe SrcSpan)
97 getSpan NoSource = pure Nothing
100 getSpan NoSource = pure Nothing
98 getSpan (SpanS sp) = pure $ Just sp
101 getSpan (SpanS sp) = pure $ Just sp