From 5a085cb64261a533d3131cdeae2b10cc2d8f1d14 Mon Sep 17 00:00:00 2001
From: letouzey
Date: Fri, 25 Feb 2011 15:22:22 +0000
Subject: 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
---
 plugins/extraction/haskell.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'plugins')

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],
-- 
cgit v1.2.3