github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-21 05:41:54 +03:00
Code Issues Projects Releases Wiki Activity

Factor pure into toTerm.

Browse Source
This commit is contained in:
Rob Rix 2017-08-11 09:29:01 -04:00
parent 57fe826d9f
commit a8e32d6739
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/TreeSitter.hs
View File

@ -123,7 +123,7 @@ assignTerm language source annotation children allChildren =
defaultTermAssignment :: Source -> Record DefaultFields -> [ SyntaxTerm DefaultFields ] -> IO [ SyntaxTerm DefaultFields ] -> IO (SyntaxTerm DefaultFields) defaultTermAssignment :: Source -> Record DefaultFields -> [ SyntaxTerm DefaultFields ] -> IO [ SyntaxTerm DefaultFields ] -> IO (SyntaxTerm DefaultFields)
defaultTermAssignment source annotation children allChildren defaultTermAssignment source annotation children allChildren
| category annotation `elem` operatorCategories = cofree . (annotation :<) . S.Operator <$> allChildren | category annotation `elem` operatorCategories = cofree . (annotation :<) . S.Operator <$> allChildren
| otherwise = pure $! case (category annotation, children) of | otherwise = case (category annotation, children) of
(ParseError, children) -> toTerm $ S.ParseError children (ParseError, children) -> toTerm $ S.ParseError children
(Comment, _) -> toTerm $ S.Comment (toText source) (Comment, _) -> toTerm $ S.Comment (toText source)
@ -145,7 +145,7 @@ defaultTermAssignment source annotation children allChildren
(Continue, [label]) -> toTerm $ S.Continue (Just label) (Continue, [label]) -> toTerm $ S.Continue (Just label)
(Continue, []) -> toTerm $ S.Continue Nothing (Continue, []) -> toTerm $ S.Continue Nothing
(ParenthesizedExpression, [child]) -> child (ParenthesizedExpression, [child]) -> pure child
(_, []) -> toTerm $ S.Leaf (toText source) (_, []) -> toTerm $ S.Leaf (toText source)
(_, children) -> toTerm $ S.Indexed children (_, children) -> toTerm $ S.Indexed children
@ -160,7 +160,7 @@ defaultTermAssignment source annotation children allChildren
, RelationalOperator , RelationalOperator
, BitwiseOperator , BitwiseOperator
] ]
toTerm = cofree . (annotation :<) toTerm = pure . cofree . (annotation :<)
categoryForLanguageProductionName :: Ptr TS.Language -> Text -> Category categoryForLanguageProductionName :: Ptr TS.Language -> Text -> Category