github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-22 14:21:31 +03:00
Code Issues Projects Releases Wiki Activity

Reformat some contexts.

Browse Source
This commit is contained in:
Rob Rix 2018-04-04 16:57:53 -04:00
parent ecb149a19e
commit d0a1bcabf9
1 changed files with 14 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Semantic/Util.hs
View File

@ -236,8 +236,7 @@ file :: MonadIO m => FilePath -> m Blob
file path = fromJust <$> IO.readFile path (languageForFilePath path)
-- Diff helpers
diffWithParser ::
( HasField fields Data.Span.Span
diffWithParser :: ( HasField fields Data.Span.Span
, HasField fields Range
, Eq1 syntax
, Show1 syntax
@ -253,8 +252,7 @@ diffWithParser parser = run (\ blob -> parse parser blob >>= decorate (declarati
where
run parse blobs = distributeFor blobs (WrapTask . parse) >>= diffTermPair diffTerms . runJoin
diffBlobWithParser ::
( HasField fields Data.Span.Span
diffBlobWithParser :: ( HasField fields Data.Span.Span
, HasField fields Range
, Traversable syntax
, HasDeclaration syntax