github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-22 06:11:49 +03:00
Code Issues Projects Releases Wiki Activity

Allow dictionaries to be identifiable

Browse Source
This commit is contained in:
joshvera 2017-01-09 15:20:36 -05:00
parent 57137db0cf
commit 98c5c41cfa
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/DiffSummary.hs
View File

@ -62,6 +62,7 @@ identifiable term = isIdentifiable (unwrap term) term
S.Pair{} -> Identifiable
S.Struct{} -> Identifiable
S.Array ty _ -> if isJust ty then Identifiable else Unidentifiable
S.Object ty _ -> if isJust ty then Identifiable else Unidentifiable
S.BlockStatement{} -> Identifiable
_ -> Unidentifiable
@ -223,7 +224,7 @@ toTermName source term = case unwrap term of
S.Ternary expr _ -> toTermName' expr
S.OperatorAssignment id _ -> toTermName' id
S.Operator _ -> termNameFromSource term
S.Object _ kvs -> "{ " <> Text.intercalate ", " (toTermName' <$> kvs) <> " }"
S.Object ty kvs -> maybe ("{ " <> Text.intercalate ", " (toTermName' <$> kvs) <> " }") termNameFromSource ty
S.Pair k v -> toKeyName k <> toArgName v
S.Return children -> Text.intercalate ", " (termNameFromSource <$> children)
S.Yield children -> Text.intercalate ", " (termNameFromSource <$> children)

2
src/Language/Go.hs
View File

@ -214,7 +214,7 @@ categoryForGoName = \case
"type_conversion_expression" -> TypeConversion
"keyed_element" -> Pair
"struct_type" -> StructTy
"dictionary_type" -> DictionaryTy
"map_type" -> DictionaryTy
"array_type" -> ArrayTy
"implicit_length_array_type" -> ArrayTy
s -> Other (toS s)