Add Option.fs

src/Milekic.YoLo/Milekic.YoLo.fsproj

@@ -14,6 +14,7 @@
     <Compile Include="Result.fs" />
     <Compile Include="Eventually.fs" />
     <Compile Include="Update.fs" />
+    <Compile Include="Option.fs" />
     <Compile Include="AutoOpen.fs" />
   </ItemGroup>
 

src/Milekic.YoLo/Option.fs

@@ -0,0 +1,13 @@
+namespace Milekic.YoLo
+
+module Seq =
+    let onlySome xs = seq {
+        for x in xs do match x with | Some v -> yield v | None -> ()
+    }
+
+module List =
+    let onlySome list =
+        List.foldBack
+            (fun x xs -> match x with | None -> xs | Some v -> v::xs )
+            list
+            []