diff options
| author | Matthieu Sozeau | 2014-11-17 13:18:44 +0100 |
|---|---|---|
| committer | Matthieu Sozeau | 2014-11-21 00:42:18 +0100 |
| commit | 72324aced4c7f2bc400554a6918755c5b46ece24 (patch) | |
| tree | f140b28db65722c75f2bd6d5a418d20cddd48dc1 | |
| parent | fb98888354298f643b8543bcbdef6b05a897d8fc (diff) | |
Avoid compilation warning.
| -rw-r--r-- | pretyping/miscops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/miscops.ml b/pretyping/miscops.ml index 882ebafe11..10129306de 100644 --- a/pretyping/miscops.ml +++ b/pretyping/miscops.ml @@ -56,4 +56,4 @@ let map_red_expr_gen f g h = function | CbvVm occs_o -> CbvVm (Option.map (map_occs (map_union g h)) occs_o) | CbvNative occs_o -> CbvNative (Option.map (map_occs (map_union g h)) occs_o) | Cbn flags -> Cbn (map_flags g flags) - | ExtraRedExpr _ | Red _ | Hnf _ as x -> x + | ExtraRedExpr _ | Red _ | Hnf as x -> x |