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

Refactor to remove guard clause

Browse Source
This commit is contained in:
Matt Diephouse 2016-01-12 10:34:17 -05:00
parent 1cb83b4ea6
commit 0ca0b4d453
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
app/Main.hs
View File

@ -73,11 +73,12 @@ replaceLeavesWithWordBranches :: Source Char -> Term T.Text Info -> Term T.Text
replaceLeavesWithWordBranches source = replaceIn
where
replaceIn (info@(Info range categories) :< syntax) = info :< case syntax of
Leaf _ | ranges <- rangesAndWordsFrom (start range) (toList $ slice range source), length ranges > 1 -> Indexed $ makeLeaf categories <$> ranges
Leaf _ ->
let ranges = rangesAndWordsFrom (start range) (toList $ slice range source) in
if length ranges > 1 then Indexed $ makeLeaf categories <$> ranges else syntax
Indexed i -> Indexed $ replaceIn <$> i
Fixed f -> Fixed $ replaceIn <$> f
Keyed k -> Keyed $ replaceIn <$> k
_ -> syntax
makeLeaf categories (range, substring) = Info range categories :< Leaf (T.pack substring)
readAndTranscodeFile :: FilePath -> IO (Source Char)