diff options
| author |  Pierre Letouzey <pierre.letouzey@inria.fr> | 2016-05-04 10:15:26 +0200 |
|---|---|---|
| committer | Pierre Letouzey <pierre.letouzey@inria.fr> | 2016-05-04 10:15:26 +0200 |
| commit | c81228e693dea839f648ddc95f7cedec22d6a47a (patch) | |
| tree | a7f284c43aa819e938da41467cebdb254c02ae8c | |
| parent | 7d40dd02d83484657943fede361371d5600a7e32 (diff) | |
| parent | 8bac7b9e0a149cd8f374ac63f33ec4ecfc5ae2d2 (diff) | |
Merge branch 'haskell-type-indent' of https://github.com/zeldovich/coq into trunk
| -rw-r--r-- | plugins/extraction/haskell.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/plugins/extraction/haskell.ml b/plugins/extraction/haskell.ml index 22519e347..764223621 100644 --- a/plugins/extraction/haskell.ml +++ b/plugins/extraction/haskell.ml @@ -346,7 +346,7 @@ let pp_decl = function in if void then mt () else - names.(i) ++ str " :: " ++ pp_type false [] typs.(i) ++ fnl () ++ + hov 2 (names.(i) ++ str " :: " ++ pp_type false [] typs.(i)) ++ fnl () ++ (if is_custom r then (names.(i) ++ str " = " ++ str (find_custom r)) else @@ -357,7 +357,7 @@ let pp_decl = function if is_inline_custom r then mt () else let e = pp_global Term r in - e ++ str " :: " ++ pp_type false [] t ++ fnl () ++ + hov 2 (e ++ str " :: " ++ pp_type false [] t) ++ fnl () ++ if is_custom r then hov 0 (e ++ str " = " ++ str (find_custom r) ++ fnl2 ()) else |