anchor.diff:  
        submitUpdates ctx
      
  -module Stream = 
  +module GetStream = 
     open User
     open Chessie
     let subscribe (getStreamClient : GetStream.Client) (user : User) (UserId userId) = 
  
positive.code:   open Chiron
    open Chessie
    open Persistence
    open Stream
    open Domain
  
    type FollowUserRequest = FollowUserRequest of int with 
  
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) 
  