gistfile1.fs

let setTerminationDate agentNumber toTerminated =
    using(new AgencyManagement()) (fun db ->
        let agent = query <@ seq { for a in db.Agents do
                                   if a.AgentNumber = agentNumber then yield a } @> |> Seq.head
        if toTerminated = true then
            agent.TerminationDate <- new Nullable<DateTime>(DateTime.Now)
        else
            agent.TerminationDate <- new Nullable<DateTime>()
        db.SaveChanges() |> ignore
    )