mirror of
https://github.com/github/semantic.git
synced 2024-12-23 06:41:45 +03:00
Eta reduce.
This commit is contained in:
parent
126af5ec91
commit
04a1444c89
@ -165,7 +165,7 @@ runReadFilesAtSHAs gitDir alternateObjectDirs paths sha1 sha2 = withRepository l
|
||||
toSourceKind (Git.SymlinkBlob mode) = Source.SymlinkBlob mode
|
||||
|
||||
runParse :: Maybe Language -> SourceBlob -> IO (Term (Syntax Text) (Record DefaultFields))
|
||||
runParse language = maybe lineByLineParser parserForLanguage language
|
||||
runParse = maybe lineByLineParser parserForLanguage
|
||||
|
||||
runDiff :: HasField fields Category => Term (Syntax Text) (Record fields) -> Term (Syntax Text) (Record fields) -> Diff (Syntax Text) (Record fields)
|
||||
runDiff term1 term2 = stripDiff (diffTerms (decorate term1) (decorate term2))
|
||||
|
Loading…
Reference in New Issue
Block a user