github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 08:54:07 +03:00
Code Issues Projects Releases Wiki Activity

Simplify effectivePath/Language

Browse Source
This commit is contained in:
Timothy Clem 2017-12-09 18:30:52 -08:00
parent 2315a27e8f
commit c3b6e260cb
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Semantic.hs
View File

@ -89,10 +89,8 @@ diffBlobPair renderer blobs
SExpressionDiffRenderer -> run ( parse parser >=> pure . fmap keepCategory) diffSyntaxTerms (const renderSExpressionDiff)
| otherwise = throwError (SomeException (NoParserForLanguage effectivePath effectiveLanguage))
where (effectivePath, effectiveLanguage) = case blobs of
This Blob { blobLanguage = Just lang, blobPath = path } -> (path, Just lang)
That Blob { blobLanguage = Just lang, blobPath = path } -> (path, Just lang)
These _ Blob { blobLanguage = lang, blobPath = path } -> (path, lang)
where effectiveLanguage = languageForBlobPair blobs
effectivePath = pathForBlobPair blobs
qualify language | OldToCDiffRenderer <- renderer = guard (language `elem` aLaCarteLanguages) *> Just language
| otherwise = Just language