X-Git-Url: http://git.euphorik.ch/?p=crypto_lab2.git;a=blobdiff_plain;f=labo2-fsharp%2FCryptoFile%2FAPI.fs;fp=labo2-fsharp%2FCryptoFile%2FAPI.fs;h=f72395b43de8236a84508aaec2756e32038338c0;hp=2f80c070fec56e6683a44bb79b55ca085ad668b1;hb=8e04e7140bd58f941930dc15b890236f8a20c67b;hpb=e7fd3b5acd39856d6425f17a22f0944e30ed8053

diff --git a/labo2-fsharp/CryptoFile/API.fs b/labo2-fsharp/CryptoFile/API.fs
index 2f80c07..f72395b 100644
--- 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
-        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) =