github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-05 14:11:33 +03:00
Code Issues Projects Releases Wiki Activity

Map leaves with Return categories to Return Nothing

Browse Source
This commit is contained in:
joshvera 2016-07-28 14:49:07 -04:00
parent d057e156cd
commit 4710cf94ea
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Parser.hs
View File

@ -30,7 +30,11 @@ termConstructor :: (Show (Record fields), HasField fields Category, HasField fie
termConstructor source info = cofree . construct
where
withDefaultInfo syntax = (info :< syntax)
construct [] = withDefaultInfo . S.Leaf . pack . toString $ slice (characterRange info) source
construct [] = case category info of
Return -> withDefaultInfo $ S.Return Nothing -- Map empty return statements to Return Nothing
_ -> withDefaultInfo . S.Leaf . pack . toString $ slice (characterRange info) source
construct children | Return == category info =
withDefaultInfo $ S.Return (listToMaybe children)
construct children | Assignment == category info = case children of
(identifier:value:[]) -> withDefaultInfo $ S.Assignment identifier value
construct children | MathAssignment == category info = case children of
@ -81,7 +85,5 @@ termConstructor source info = cofree . construct
toTuple child | S.Leaf c <- unwrap child = [cofree (extract child :< S.Comment c)]
construct children | isFixed (category info) = withDefaultInfo $ S.Fixed children
construct children | Return == category info =
withDefaultInfo $ S.Return (listToMaybe children)
construct children =
withDefaultInfo $ S.Indexed children