diff options
Diffstat (limited to 'translate')
-rw-r--r-- | translate/ppconstrnew.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/translate/ppconstrnew.ml b/translate/ppconstrnew.ml index 8a2ce3765..9a86e3ffa 100644 --- a/translate/ppconstrnew.ml +++ b/translate/ppconstrnew.ml @@ -426,7 +426,8 @@ let pr_return_type pr po = pr_case_type pr po let pr_simple_return_type pr na po = (match na with - | Name id -> spc () ++ str "as " ++ pr_id id + | Some (Name id) -> + spc () ++ str "as " ++ pr_id id | _ -> mt ()) ++ pr_case_type pr po |