anchor.diff:  ﻿module Jim.Domain
  +
  +open NodaTime
   
   open System
   open System.Collections.Generic
   open System.Text.RegularExpressions
   
  -//Domain model
  +(* Domain model types *)
   
   type EmailAdress = 
       | Unverified of string
  
positive.code:     Name: string
      Email: string
      Password: string
  }
  
  and NameChanged = {
  
negative.code:     Id: Guid
  }
  
  (* End commands *)
  
  (* Events *)
  
  type Event =
      | UserCreated of UserCreated
  