diff options
| author | letouzey | 2011-02-25 15:22:22 +0000 |
|---|---|---|
| committer | letouzey | 2011-02-25 15:22:22 +0000 |
| commit | 5a085cb64261a533d3131cdeae2b10cc2d8f1d14 (patch) | |
| tree | 922dec527801000b9e32dcdf437aa3c0a26e1fdf /plugins/extraction | |
| parent | cb277b8fae9290e1d5c43861b649b7f249ceac05 (diff) | |
Fix indentation of default pattern in haskell case (bug #2476)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13859 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins/extraction')
| -rw-r--r-- | plugins/extraction/haskell.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/plugins/extraction/haskell.ml b/plugins/extraction/haskell.ml index 9eeb25acf7..844b673754 100644 --- a/plugins/extraction/haskell.ml +++ b/plugins/extraction/haskell.ml @@ -204,10 +204,10 @@ and pp_pat env info pv = match info.m_same with | BranchFun _ -> let ids, env' = push_vars [anonymous_name] env in - pr_id (List.hd ids) ++ str " ->" ++ spc () ++ - pp_expr par env' [] factor_br + hov 2 (pr_id (List.hd ids) ++ str " ->" ++ spc () ++ + pp_expr par env' [] factor_br) | BranchCst _ -> - str "_ ->" ++ spc () ++ pp_expr par env [] factor_br + hov 2 (str "_ ->" ++ spc () ++ pp_expr par env [] factor_br) | BranchNone -> mt () (*s names of the functions ([ids]) are already pushed in [env], |