simple.fs

type Card=Card of string
type Domain=
|Card 
|Id 
|UserAccount


type Action=
|Add of Card
|GetUserAccount of Card


module DbContext=
 let inline get id=getFromDb id
 let processAction =
  function
  | Add card->
       match getFromDb card with
        |Some x->()
        |None->addToDb card
        
  |x->()

let logContext=
 let process action= printfn "%A" action
 
let processAction action=
  DbContext.processAction action
  logContext.process action