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

Swap the order of arguments to match parserForLanguage.

Browse Source
This commit is contained in:
Rob Rix 2017-03-31 15:13:26 -04:00
parent 33d6020f9c
commit 00de3a3ba2
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Command.hs
View File

@ -26,7 +26,7 @@ data CommandF f where
ReadFile :: FilePath -> CommandF SourceBlob
ReadFilesAtSHAs :: FilePath -> [FilePath] -> String -> String -> CommandF [(SourceBlob, SourceBlob)]
Parse :: SourceBlob -> Language -> CommandF (Term (Syntax Text) (Record '[Range, Category, SourceSpan]))
Parse :: Language -> SourceBlob -> CommandF (Term (Syntax Text) (Record '[Range, Category, SourceSpan]))
-- read the list of files changed between a pair of SHAs
@ -88,4 +88,4 @@ runCommand = iterFreerA $ \ command yield -> case command of
toSourceKind (Git.ExecutableBlob mode) = Source.ExecutableBlob mode
toSourceKind (Git.SymlinkBlob mode) = Source.SymlinkBlob mode
Parse blob language -> parserForLanguage language blob >>= yield
Parse language blob -> parserForLanguage language blob >>= yield