@@ -200,7 +200,7 @@ let licence =
empty
+> shared_params
+> flag "-header" no_arg
- ~doc:" Display the text of the licence"
+ ~doc:" Display the header of the licence"
)
(fun _ header () ->
let cecill = not(header) in (* When cecill is false, it displays the header *)
@@ -41,7 +41,7 @@ open Core.Std;;
(* French version *)
let fr_header =
"\
- Copyright © Joly Clément, 2015 \
+ Copyright © Joly Clément, 2014-2015 \
leowzukw@vmail.me \
@@ -1,5 +1,5 @@
(******************************************************************************)
-(* Copyright © Joly Clément, 2014 *)
+(* Copyright © Joly Clément, 2014-2015 *)
(* *)
(* leowzukw@vmail.me *)