X-Git-Url: http://git.euphorik.ch/?p=crypto_lab2.git;a=blobdiff_plain;f=labo2-fsharp%2FCryptoFileTests%2FProgram.fs;fp=labo2-fsharp%2FCryptoFileTests%2FProgram.fs;h=509b6d7aa331283aa15df900aadd15e3b66be405;hp=a0cfba9cd5268d43f239e942456b446ce14bcce8;hb=c0d86015957eda6badbe9c6e5256807f9ab0c02f;hpb=8e04e7140bd58f941930dc15b890236f8a20c67b

diff --git a/labo2-fsharp/CryptoFileTests/Program.fs b/labo2-fsharp/CryptoFileTests/Program.fs
index a0cfba9..509b6d7 100644
--- a/labo2-fsharp/CryptoFileTests/Program.fs
+++ b/labo2-fsharp/CryptoFileTests/Program.fs
@@ -1,7 +1,7 @@
 module CryptoFileTests.Main
 
 open System
-open System.IO;
+open System.IO
 open CryptoFile
 
 let printUsage () = 
@@ -14,7 +14,7 @@ let printUsage () =
 // The private keys are stored in plain file! Do not let anyone access these files!
 module internal Keys =
     // Try to read the public key and private key from files. If one of a file doesn't exist
-    // a new key pair is created, stored the returned.
+    // a new key pair is created, stored then returned.
     let getKey (filenamePub: string) (filenamePriv: string) : Key * Key =
         try
             use srPub = new StreamReader (filenamePub)
@@ -24,7 +24,7 @@ module internal Keys =
         | _ ->
             use swPub = new StreamWriter (filenamePub)
             use swPriv = new StreamWriter (filenamePriv)
-            let keyPub, keyPriv = API.generatKeysPair
+            let keyPub, keyPriv = API.generatKeysPair ()
             swPub.Write keyPub
             swPriv.Write keyPriv
             keyPub, keyPriv