From: Ummon <greg.burri@gmail.com>
Date: Thu, 4 Dec 2014 21:39:25 +0000 (+0100)
Subject: Cleaning.
X-Git-Url: https://git.euphorik.ch/?a=commitdiff_plain;h=8e04e7140bd58f941930dc15b890236f8a20c67b;p=crypto_lab2.git

Cleaning.
---

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) =