Add parenthesis in caml type

src/content/1.4/code/ocaml/snippet03.ml

@@ -3,5 +3,5 @@ module type Kleisli = sig
   type b
   type c
 
-  val ( >=> ) : (a -> b writer) -> (b -> c writer) -> a -> c writer
+  val ( >=> ) : (a -> b writer) -> (b -> c writer) -> (a -> c writer)
 end

src/content/1.7/code/ocaml/snippet04.ml

@@ -2,5 +2,5 @@ module type Maybe_Functor = sig
   type a
   type b
 
-  val fmap : (a -> b) -> a option -> b option
+  val fmap : (a -> b) -> (a option -> b option)
 end

src/content/1.7/code/ocaml/snippet21.ml

@@ -1,3 +1,3 @@
 module type Reader_Fmap_Example = sig
-  val fmap : ('a -> 'b) -> ('r -> 'a) -> 'r -> 'b
+  val fmap : ('a -> 'b) -> ('r -> 'a) -> ('r -> 'b)
 end

src/content/1.8/code/ocaml/snippet17.ml

@@ -1,6 +1,6 @@
 module KleisliComposition = struct
   let ( >=> )
-      : ('a -> 'b writer) -> ('b -> 'c writer) -> 'a -> 'c writer
+      : ('a -> 'b writer) -> ('b -> 'c writer) -> ('a -> 'c writer)
     =
    fun m1 m2 x ->
     let y, s1 = m1 x in

src/content/3.4/code/ocaml/snippet04.ml

@@ -1,6 +1,6 @@
 module type Monad = sig
   type 'a m
 
-  val ( >=> ) : ('a -> 'b m) -> ('b -> 'c m) -> 'a -> 'c m
+  val ( >=> ) : ('a -> 'b m) -> ('b -> 'c m) -> ('a -> 'c m)
   val return : 'a -> 'a m
 end