moved monadic operators, added monadic getQueryString

Figment/Extensions.fs

@@ -12,6 +12,12 @@ open System.Text.RegularExpressions
 open System.Web.Caching
 open System.Linq
 
+module Option =
+    let fromNull =
+        function
+        | null -> None
+        | a -> Some a
+
 [<AutoOpen>]
 module Extensions = 
     let internal bindingFlags = BindingFlags.NonPublic ||| BindingFlags.Instance

Figment/Reader.fs

@@ -4,10 +4,3 @@ type ReaderBuilder() =
     member x.Bind(m, f) = fun c -> f (m c) c
     member x.Return a = fun _ -> a
     member x.ReturnFrom a = a
-    member x.map f m = x.Bind(m, fun a -> x.Return (f a))
-
-[<AutoOpen>]
-module ReaderOperators =
-    let internal r = ReaderBuilder()
-    let (>>.) m f = r.Bind(m, fun _ -> f)
-    let (>>=) m f = r.Bind(m,f)

Figment/Result.fs

@@ -12,6 +12,12 @@ module Result =
 
     let result = ReaderBuilder()
 
+    let inline bind f m = result.Bind(m,f)
+    let inline combine a b = result.Bind(a, fun _ -> b)
+    let (>>=) = bind
+    let (>>.) = combine
+    let inline map f m = result.Bind(m, fun a -> result.Return (f a))
+
     let empty : FAction = EmptyResult() |> fromActionResult
 
     let view viewName model = 
@@ -88,7 +94,8 @@ module Result =
             do! contentType "application/javascript"
         }
 
-    open Figment.ReaderOperators
+    let getQueryString (key: string) (ctx: ControllerContext) : string option = 
+        ctx.Request.QueryString.[key] |> Option.fromNull
 
     let xml data = 
         // charset?