Merge adjacent SrcSpans (#1)

[chshersh]

Now search results combined with empty lines, like this:

$ hgrep main main/hgrep.hs 
main/hgrep.hs:(17,1)-(32,31)



17  main :: IO ()

18  main = do
19    IO.hSetBuffering IO.stdout IO.LineBuffering
20    IO.hSetBuffering IO.stderr IO.LineBuffering
21    opts <- parseOpts
22    colour <- detectColour
23    case parseQuery (cmdQuery opts) (cmdRegex opts) of
24      Left er -> do
25        IO.hPutStrLn IO.stderr er
26        exitWith (ExitFailure 2)
27      Right q -> do
28        found <-
29          fmap sum $
30            for (cmdFiles opts) $ \fp ->
31              hgrep (HGrep.PrintOpts colour (cmdLineNums opts)) q fp
32        exitWith (exitCode found)

But after PR #32 is merged this won't be a problem.

[thumphries]

This should have been included in the project Prelude, it's an oversight on my part. Sorry about that.

[thumphries]

👍

This is great, thanks so much for contributing!

[chshersh]

@thumphries I'm very sorry for massive refactoring. I moved my version of printSearchResultLocation into new Language.Haskell.HGrep.Internal.Print module renaming it to printSrcSpan because I want (according to your words):

1. Export printSrcSpan anywhere and use it from Language.Haskell.HGrep
2. Implement printSearchResultLocation using printSrcSpan
3. Do not export printSrcSpan from non-internal modules because as you said you don't want to export ghc-internals.

This results in so many files changed :(
But I thought that having Language.Haskell.HGrep.Internal.Print will be useful some day anyway.

[thumphries]

Thank you, I agree with the new structure!