anchor.diff:          | [<CompiledName "success">] Success of data: 'T
           | [<CompiledName "error">] Failure of message: string
   
  -    and UserData =
  +    and PersonData =
           {
               [<Name "firstName">]    FirstName   : string
               [<Name "lastName">]     LastName    : string
  
positive.code:                 Died = None
              }
          ]
          |> Seq.iter usersDatabase.Add
  
negative.code: module Api =
  
      type Action =
          | [<CompiledName "person"; Method "POST"; Json "data">]
              PostPerson of string * data: PersonData
          | [<CompiledName "person"; Method "GET">]
              GetPerson of string
          | [<CompiledName "person"; Method "PUT"; Json "data">]
              UpdatePerson of string * data: PersonData
          | [<CompiledName "person"; Method "DELETE">]
              DeletePerson of string
  
  