anchor.diff:    open Chiron
     open Chessie
     open Persistence
  -  open Stream
     open Domain
   
     type FollowUserRequest = FollowUserRequest of int with 
  
positive.code: 
    let webpart getDataCtx getStreamClient =
      let createFollowing = createFollowing getDataCtx
      let subscribe = subscribe getStreamClient
      let followUser = followUser subscribe createFollowing
      let handleFollowUser = handleFollowUser followUser
      POST >=> path "/follow" >=> requiresAuth2 handleFollowUser
negative.code: 
    type CreateFollowing = User -> UserId -> AsyncResult<unit, Exception>
    type Subscribe = User -> UserId -> AsyncResult<unit, Exception>
    type FollowUser = User -> UserId -> AsyncResult<unit, Exception>
  
    let followUser 
      (subscribe : Subscribe) (createFollowing : CreateFollowing) 
  