anchor.diff:  
   let routes =
       choose [
  -        GET >>= path "/staticpages" >>= Writers.setMimeType "application/json"
  -            >>= OK (JsonConvert.SerializeObject (List.map (fun (item:Content) ->
  +        GET >=> path "/staticpages" >=> Writers.setMimeType "application/json"
  +            >=> OK (JsonConvert.SerializeObject (List.map (fun (item:Content) ->
                   {item with content = ""} //No need to return the full html content, it isn't used anyways
               ) staticpageCollection))
  -        GET >>= path "/staticpages/show" >>= Writers.setMimeType "text/html" >>= OK Templates.staticpage
  -        GET >>= pathScan "/staticpage/%s" (fun (id) ->
  +        GET >=> path "/staticpages/show" >=> Writers.setMimeType "text/html" >=> OK Templates.staticpage
  +        GET >=> pathScan "/staticpage/%s" (fun (id) ->
               try
                   staticpageCollection
                   |> List.find (fun (item) ->
  
positive.code:                 |> OK
              with
              | :? System.Collections.Generic.KeyNotFoundException as msg -> NOT_FOUND "404 not found")
              >>= Writers.setMimeType "application/json"]
  
negative.code: 
  
  open Suave
  open Suave.Successful
  open Suave.RequestErrors
  open Suave.Utils
  open Suave.Filters
  open System.IO
  open Newtonsoft.Json
  open FSharp.Markdown
  open Types
  open Suave.Operators
  
  let staticpageCollection =
      Directory.EnumerateFiles("./content/pages/")
  