Cleaning.

diff --git a/labo2-fsharp/CryptoFile/API.fs b/labo2-fsharp/CryptoFile/API.fs
index 2f80c07..f72395b 100644 (file)
--- a/labo2-fsharp/CryptoFile/API.fs
+++ b/labo2-fsharp/CryptoFile/API.fs
@@ -9,7 +9,7 @@ type internal Metadata (d: (string * string) list) =
     new (stream : Stream) =
         let reader = new BinaryReader (stream)
         let length = reader.ReadByte () |> int
     new (stream : Stream) =
         let reader = new BinaryReader (stream)
         let length = reader.ReadByte () |> int

-        Metadata ([for i in 1..length -> reader.ReadString (), reader.ReadString ()])
+        Metadata ([for _ in 1..length -> reader.ReadString (), reader.ReadString ()])

 
     // Write metadata to a stream.
     member this.WriteTo (stream : Stream) =
 
     // Write metadata to a stream.
     member this.WriteTo (stream : Stream) =