Documentation

Account model.

>>> import Haspara.Accounting.AccountKind (AccountKind(..))
>>> import qualified Data.Aeson as Aeson
>>> let acc = Account AccountKindAsset (1 ::Int)
>>> Aeson.encode acc
"{\"kind\":\"ASSET\",\"object\":1}"
>>> Aeson.decode (Aeson.encode acc) :: Maybe (Account Int)
Just (Account {accountKind = AccountKindAsset, accountObject = 1})
>>> Aeson.decode (Aeson.encode acc) == Just acc
True