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

Make case statements identifiable

Browse Source
This commit is contained in:
joshvera 2017-01-10 16:21:29 -05:00
parent 6d42df94ec
commit fdea1399f0
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/DiffSummary.hs
View File

@ -61,6 +61,7 @@ identifiable term = isIdentifiable (unwrap term) term
S.Rescue{} -> Identifiable S.Rescue{} -> Identifiable
S.Pair{} -> Identifiable S.Pair{} -> Identifiable
S.Struct{} -> Identifiable S.Struct{} -> Identifiable
S.Case{} -> Identifiable
S.Array ty _ -> if isJust ty then Identifiable else Unidentifiable S.Array ty _ -> if isJust ty then Identifiable else Unidentifiable
S.Object ty _ -> if isJust ty then Identifiable else Unidentifiable S.Object ty _ -> if isJust ty then Identifiable else Unidentifiable
S.BlockStatement{} -> Identifiable S.BlockStatement{} -> Identifiable