anchor.diff:  
   
   open Suave
  -open Suave.Http
  -open Suave.Http.Applicatives
  -open Suave.Http.Successful
  -open Suave.Http.RequestErrors
  +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/")
  
positive.code: 
  let routes =
      choose [
          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) ->
              try
                  staticpageCollection
                  |> List.find (fun (item) ->
  
negative.code:                 |> OK
              with
              | :? System.Collections.Generic.KeyNotFoundException as msg -> NOT_FOUND "404 not found")
              >=> Writers.setMimeType "application/json"]
  