Check that multiUpdate affects linkValueSquared uniformly

[rootstock.git] / Fund.hs

{-# LANGUAGE TemplateHaskell #-}
module Fund where
import Data.Text (Text)
import Database.Persist.TH (derivePersistField)

data IOULine = IOULine
  { peerAccount   :: Text
  , lineCurrency  :: Text
  }
  deriving (Show, Eq, Read)

data Fund
  = XRP
  | IOUFund IOULine
  deriving (Eq, Read, Show)
derivePersistField "Fund"