anchor.diff:    open Chiron
     open Chessie
     open Persistence
  -  open Stream
     open Domain
   
     type FollowUserRequest = FollowUserRequest of int with 
  
positive.code:     printfn "%A" ex
      JSON.internalError
  
    let handleFollowUser followUser (user : User) ctx = async {
      match JSON.deserialize ctx.request with
      | Success (FollowUserRequest userId) -> 
        let! webpart =
  
negative.code: 
    let webpart getDataCtx getStreamClient =
      let createFollowing = createFollowing getDataCtx
      let subscribe = GetStream.subscribe getStreamClient
      let followUser = followUser subscribe createFollowing
      let handleFollowUser = handleFollowUser followUser
      POST >=> path "/follow" >=> requiresAuth2 handleFollowUser