github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-26 08:25:19 +03:00
Code Issues Projects Releases Wiki Activity

Refactor qualify to use guard.

Browse Source
This commit is contained in:
Rob Rix 2017-11-22 16:50:12 -05:00
parent 5dc52688df
commit 10ba1e46b7
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/Semantic.hs
View File

@ -9,7 +9,7 @@ module Semantic
import Algorithm (Diffable)
import Control.Exception
import Control.Monad ((>=>))
import Control.Monad ((>=>), guard)
import Control.Monad.Error.Class
import Data.Align.Generic
import Data.Bifoldable
@ -93,18 +93,16 @@ diffBlobPair renderer blobs
(_, Blob { blobLanguage = Just lang, blobPath = path }) -> (path, Just lang)
(Blob { blobPath = path }, _) -> (path, Nothing)
qualify language
| OldToCDiffRenderer <- renderer
, language `notElem`
[ Language.JSX
qualify language | OldToCDiffRenderer <- renderer = guard (language `elem` aLaCarteLanguages) *> Just language
| otherwise = Just language
aLaCarteLanguages
= [ Language.JSX
, Language.JavaScript
, Language.Markdown
, Language.Python
, Language.Ruby
, Language.TypeScript
]
= Nothing
| otherwise = Just language
run :: (Foldable syntax, Functor syntax) => (Blob -> Task (Term syntax ann)) -> (Term syntax ann -> Term syntax ann -> Diff syntax ann ann) -> (Both Blob -> Diff syntax ann ann -> output) -> Task output
run parse diff renderer = do