diff options
| author | Maxime Dénès | 2018-01-16 13:40:26 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2018-01-16 13:40:26 +0100 |
| commit | efea3760daed495ae072c6dcb258201d236425cc (patch) | |
| tree | 00540b4ce2de4e270bad11c8a51dd85cfa34a7df /stm/proofBlockDelimiter.ml | |
| parent | f4da0fe96c4784d89e8544e0273e1175f6a4de41 (diff) | |
| parent | ab8e47207245277cb5b92b80a92ae78ede5bfafe (diff) | |
Merge PR #6499: [vernac] Move the flags/attributes out of vernac_expr
Diffstat (limited to 'stm/proofBlockDelimiter.ml')
| -rw-r--r-- | stm/proofBlockDelimiter.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stm/proofBlockDelimiter.ml b/stm/proofBlockDelimiter.ml index 01b5b9a016..bebc4d5d5f 100644 --- a/stm/proofBlockDelimiter.ml +++ b/stm/proofBlockDelimiter.ml @@ -96,7 +96,7 @@ let dynamic_bullet doc { dynamic_switch = id; carry_on_data = b } = `ValidBlock { base_state = id; goals_to_admit = focused; - recovery_command = Some (Vernacexpr.VernacExpr(Vernacexpr.VernacBullet (to_bullet_val b))) + recovery_command = Some (Vernacexpr.VernacExpr([], Vernacexpr.VernacBullet (to_bullet_val b))) } | `Not -> `Leaks @@ -125,7 +125,7 @@ let dynamic_curly_brace doc { dynamic_switch = id } = `ValidBlock { base_state = id; goals_to_admit = focused; - recovery_command = Some (Vernacexpr.VernacExpr Vernacexpr.VernacEndSubproof) + recovery_command = Some (Vernacexpr.VernacExpr ([], Vernacexpr.VernacEndSubproof)) } | `Not -> `Leaks |