Run auto format on sources

src/gfile.ml

@@ -16,7 +16,7 @@ type path = string
    e 3 1 11
    e 0 2 8
 
- *)
+*)
 
 let write_file path graph =
 

src/graph.mli

@@ -37,7 +37,7 @@ type 'a out_arcs = (id * 'a) list
 val out_arcs: 'a graph -> id -> 'a out_arcs
 
 (* find_arc gr id1 id2  finds an arc between id1 and id2 and returns its label. Returns None if the arc does not exist. 
-* @raise Graph_error if id1 is unknown. *)
+ * @raise Graph_error if id1 is unknown. *)
 val find_arc: 'a graph -> id -> id -> 'a option