-enclosingTickSpan :: Module -> SrcSpan -> GHCi SrcSpan
-enclosingTickSpan mod src = do
- ticks <- getTickArray mod
- let line = srcSpanStartLine src
- ASSERT (inRange (bounds ticks) line) do
- let enclosing_spans = [ span | (_,span) <- ticks ! line
- , srcSpanEnd span >= srcSpanEnd src]
- return . head . sortBy leftmost_largest $ enclosing_spans
-