mirror of
https://github.com/github/semantic.git
synced 2025-01-03 04:51:57 +03:00
Formatting
This commit is contained in:
parent
9d9e3e295f
commit
7dcab8f987
@ -107,8 +107,7 @@ termConstructor source sourceSpan name range children _ = case name of
|
||||
children@[ty, _] -> case category (extract ty) of
|
||||
ArrayTy -> toImplicitArray children
|
||||
DictionaryTy -> toMap children
|
||||
_ ->
|
||||
toStruct children
|
||||
_ -> toStruct children
|
||||
rest -> withRanges range Error rest $ S.Error rest
|
||||
toImplicitArray = \case
|
||||
[ty, values] -> withCategory ArrayLiteral (S.Array (Just ty) (toList $ unwrap values))
|
||||
|
Loading…
Reference in New Issue
Block a user