Avoid [List.concat_map].

This commit is contained in:
François Pottier 2021-12-22 13:55:28 +01:00
parent e7cc6adfba
commit fa92810ac1
1 changed files with 1 additions and 1 deletions

View File

@ -141,7 +141,7 @@ module Shrinker = struct
| ML.PVariant (_, Some pat) ->
bv_pat pat
| ML.PTuple ps ->
List.concat_map bv_pat ps
List.(concat (map bv_pat ps))
(* t[u/x] *)
let rec subst t x u =