mirror of
https://github.com/github/semantic.git
synced 2024-12-23 06:41:45 +03:00
match less
This commit is contained in:
parent
95037e1b75
commit
3b3515ccff
@ -49,13 +49,14 @@ termConstructor source sourceSpan name range children = case (name, children) of
|
||||
where
|
||||
toVarAssignment constSpec = do
|
||||
assignment <- case toList (unwrap constSpec) of
|
||||
[idList, _, exprs] -> do
|
||||
idList : rest -> do
|
||||
identifier' <- case toList (unwrap idList) of
|
||||
(id : _) -> case toList (unwrap id) of
|
||||
(id : _) -> pure id
|
||||
id : _ -> case toList (unwrap id) of
|
||||
id : _ -> pure id
|
||||
_ -> withCategory Error (S.Error [constSpec])
|
||||
_ -> withCategory Error (S.Error [constSpec])
|
||||
withDefaultInfo $ S.VarAssignment identifier' exprs
|
||||
rest' <- withDefaultInfo (S.Indexed rest)
|
||||
withDefaultInfo $ S.VarAssignment identifier' rest'
|
||||
_ -> withCategory Error (S.Error [constSpec])
|
||||
withDefaultInfo $ S.VarDecl assignment
|
||||
(_, []) -> withDefaultInfo . S.Leaf $ toText (slice range source)
|
||||
|
Loading…
Reference in New Issue
Block a user