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

Use cata in replaceLeavesWithWordBranches

Browse Source
This commit is contained in:
Matt Diephouse 2016-01-12 10:47:55 -05:00
parent bce530858d
commit 63a6bf326b
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
app/Main.hs
View File

@ -70,15 +70,13 @@ printDiff arguments (aSource, bSource) (aTerm, bTerm) = case renderer arguments
write rendered h = TextIO.hPutStr h rendered
replaceLeavesWithWordBranches :: Source Char -> Term T.Text Info -> Term T.Text Info
replaceLeavesWithWordBranches source = replaceIn
replaceLeavesWithWordBranches source term = cata replaceIn term
where
replaceIn (info :< syntax) = info :< case syntax of
replaceIn info syntax = info :< case syntax of
Leaf _ | (Info range categories) <- info ->
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)