Supression d'une fonction inutilisée.

TP_MUSIQUE/MIDI.ml

@@ -79,7 +79,7 @@ module type MMIDI =
              and midi  = int * track list;;
 
         (** read a MIDI file into a midi structure *)
-        val read  : string -> midi
+        (*        val read  : string -> midi *)
         (** write the midi structure out to a MIDI file *)
         val write : midi -> string -> unit
     end;;
@@ -136,7 +136,7 @@ module MIDI : MMIDI = struct
              and midi  = int * track list;;
 
     (** read a MIDI file into a midi structure *)
-    let read inFile =
+(*    let read inFile =
         let ip = open_in_bin inFile in
         let strm = Stream.of_channel ip in
         (* discard: throw away num bytes *)
@@ -397,7 +397,7 @@ module MIDI : MMIDI = struct
                 in (division,readTracks numTracks)
             | _ -> raise (MIDI_data("Does not start with 'MThd', therefore not a MIDI tune"))
         in close_in ip; data;;
-
+ *)
     (** write MIDI data to the supplied file name *) 
     let write data outFile =
         let chan = open_out_bin outFile in