X-Git-Url: http://git.euphorik.ch/?p=master-thesis.git;a=blobdiff_plain;f=Parasitemia%2FParasitemiaCore%2FTypes.fs;h=c1a635d9b659b2ce24dac06ad2ab35d95d109562;hp=f88baf8bac5a5b8a289ec3ebe00b5cf5ac5231e6;hb=aeb0583fa94d4c8cef1f8b53559ecac76bc1a191;hpb=829c86a5f0f165438da8f8da2e072889065a4df1

diff --git a/Parasitemia/ParasitemiaCore/Types.fs b/Parasitemia/ParasitemiaCore/Types.fs
index f88baf8..c1a635d 100644
--- a/Parasitemia/ParasitemiaCore/Types.fs
+++ b/Parasitemia/ParasitemiaCore/Types.fs
@@ -29,7 +29,7 @@ type Ellipse (cx : float32, cy : float32, a : float32, b : float32, alpha : floa
     member this.CutAnHorizontalLine (x : float32) : bool =
         a ** 2.f + b ** 2.f - 2.f * x ** 2.f + 4.f * x * cy - 2.f * cy ** 2.f - a ** 2.f * cos (2.f * alpha) + b ** 2.f * cos (2.f * alpha) > 0.f
 
-    member this.isOutside (width : float32) (height : float32) =
+    member this.IsOutside (width : float32) (height : float32) =
         this.Cx < 0.f || this.Cx >= width ||
         this.Cy < 0.f || this.Cy >= height ||
         this.CutAVericalLine 0.f || this.CutAVericalLine width ||
@@ -67,7 +67,7 @@ type MaybeBuilder () =
         | None -> None
         | Some a -> f a
 
-    member this.ReturnFrom (x) = x
+    member this.ReturnFrom x = x
 
     member this.TryFinally (body, compensation) =
         try
@@ -85,7 +85,7 @@ type MaybeBuilder () =
     member this.Zero () =
         None
 
-    member this.Return (x) =
+    member this.Return x =
         Some x
 
 let maybe = MaybeBuilder()