dsshep · September 26, 2022 19:05
diff --git a/Single Case DU example.fs b/Single Case DU example.fs
 module Age = 
    type Age = private Age of int

    let create (age : int) : Age option = 
        if age < 0 then None else Some (Age age)

 module Application = 

    let invalidAge = Age.create -1 // none
    let validAge = Age.create 10 // some
	module Age =
	type Age = private Age of int

	let create (age : int) : Age option =
	if age < 0 then None else Some (Age age)

	module Application =

	let invalidAge = Age.create -1 // none
	let validAge = Age.create 10 // some