๐Ÿ“ฆ sleepyfran / duets

๐Ÿ“„ BankAccount.fs ยท 16 lines
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16module Duets.Entities.BankAccount

/// Creates a bank account for the given character ID.
let forCharacter id =
    { Holder = Character id
      Balance = 0m<dd> }

/// Creates a bank account for the given character ID with an initial transaction
/// of the given balance.
let forCharacterWithBalance id balance =
    { Holder = Character id
      Balance = balance }

/// Creates a bank account for the given band ID.
let forBand id = { Holder = Band id; Balance = 0m<dd> }