diff options
| author | Enrico Tassi | 2019-05-07 14:14:04 +0200 |
|---|---|---|
| committer | Enrico Tassi | 2019-05-07 14:14:04 +0200 |
| commit | c828bca2c11d83a329facd56051abd4d27e16850 (patch) | |
| tree | 8023077ff7d1e4ea0a3e6fc9edb3f2854143b3ca /stm | |
| parent | 7602c2cb547fe6664f7a065d17717baf12b9da88 (diff) | |
| parent | a7f678c2209bbe56b18ed3cdf1306fed161d7b07 (diff) | |
Merge PR #10075: [Record] Une a record to gather field declaration attributes
Reviewed-by: gares
Diffstat (limited to 'stm')
| -rw-r--r-- | stm/vernac_classifier.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stm/vernac_classifier.ml b/stm/vernac_classifier.ml index 674b4285d2..4a4c5c94e9 100644 --- a/stm/vernac_classifier.ml +++ b/stm/vernac_classifier.ml @@ -137,7 +137,7 @@ let classify_vernac e = | Constructors l -> List.map (fun (_,({v=id},_)) -> id) l | RecordDecl (oid,l) -> (match oid with Some {v=x} -> [x] | _ -> []) @ CList.map_filter (function - | ((_,AssumExpr({v=Names.Name n},_)),_),_ -> Some n + | AssumExpr({v=Names.Name n},_), _ -> Some n | _ -> None) l) l in VtSideff (List.flatten ids), VtLater | VernacScheme l -> |