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

Tidy diffBlobWithParser.

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

4
src/Semantic/Util.hs
View File

@ -260,6 +260,4 @@ diffBlobWithParser :: ( HasField fields Data.Span.Span
=> Parser (Term syntax (Record fields))
-> Blob
-> Task (Term syntax (Record (Maybe Declaration : fields)))
diffBlobWithParser parser = run (\ blob -> parse parser blob >>= decorate (declarationAlgebra blob))
where
run parse = parse
diffBlobWithParser parser blob = parse parser blob >>= decorate (declarationAlgebra blob)