anchor.diff:  
   let routes =
       choose [
  -        GET >>= path "/posts/index" >>= Writers.setMimeType "text/html" >>= OK Templates.posts
  -        GET >>= path "/posts" >>= Writers.setMimeType "application/json" >>= OK (JsonConvert.SerializeObject postCollection)
  -        GET >>= path "/posts/show" >>= Writers.setMimeType "text/html" >>= OK Templates.post
  -        GET >>= pathScan "/post/%s" (fun (id) ->
  +        GET >=> path "/posts/index" >=> Writers.setMimeType "text/html" >=> OK Templates.posts
  +        GET >=> path "/posts" >=> Writers.setMimeType "application/json" >=> OK (JsonConvert.SerializeObject postCollection)
  +        GET >=> path "/posts/show" >=> Writers.setMimeType "text/html" >=> OK Templates.post
  +        GET >=> pathScan "/post/%s" (fun (id) ->
               try
                   postCollection
                   |> List.find (fun (item) ->
  
positive.code: ﻿module Posts
  
  open Suave
  open Suave.Http
  open Suave.Http.Applicatives
  open Suave.Http.Successful
  open Suave.Http.RequestErrors
  open Suave.Utils
  open System.IO
  open System.IO
  
negative.code:                 |> OK
              with
              | :? System.Collections.Generic.KeyNotFoundException as msg -> NOT_FOUND "404 not found")
              >=> Writers.setMimeType "application/json"]
  