person.fs

person.fs

type Person = { id: Guid; name: string; age: int}

let bjorn = { id=System.Guid.NewGuid(); name="Bjørn Einar"; age=34}
let changedName = {bjorn with name = "Bjørn the confused"}
let changeAge (p:Person) (newAge:int) = 
	// somecrazybusiness rules with age and using services to check if the
	// age is really correct and do all kinds of sideeffects
	{p with age = newAge}
let changedAgedBjorn = changeAge changedName 30