diff options
| author | Kathy Gray | 2015-09-25 10:14:29 +0100 |
|---|---|---|
| committer | Kathy Gray | 2015-09-25 10:14:29 +0100 |
| commit | dd3ae8f47b8bfca52507fbd2a234d064e4f1ca9d (patch) | |
| tree | 7ca26e82b79dd4b72cf73a6b1d42e383f9cf3b1f /src/rewriter.ml | |
| parent | 4ce0ce8461b7cbf3e710f42ab3edb50902c7d996 (diff) | |
building version of last change, removing stray )
Diffstat (limited to 'src/rewriter.ml')
| -rw-r--r-- | src/rewriter.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/rewriter.ml b/src/rewriter.ml index 8b1adfc5..500c2be4 100644 --- a/src/rewriter.ml +++ b/src/rewriter.ml @@ -117,7 +117,7 @@ let rewrite_pat rewriters nmap (P_aux (pat,(l,annot))) = rewrap (P_vector ps) | P_lit _ | P_wild | P_id _ -> rewrap pat | P_as(pat,id) -> rewrap (P_as( rewrite pat, id)) - | P_typ(typ,pat) -> rewrite pat) + | P_typ(typ,pat) -> rewrite pat | P_app(id ,pats) -> rewrap (P_app(id, List.map rewrite pats)) | P_record(fpats,_) -> rewrap (P_record(List.map (fun (FP_aux(FP_Fpat(id,pat),pannot)) -> FP_aux(FP_Fpat(id, rewrite pat), pannot)) fpats, |