beam-th-0.1.0.0: test/TestData.hs

{-# LANGUAGE DeriveGeneric #-}
module TestData where

import Data.Text (Text)
import Database.Beam

data UserT f = User {
      userName    :: Columnar f Text
    } deriving (Generic)

data OrderT f = Order {
      orderItem   :: Columnar f Text,
      orderIssuer :: PrimaryKey UserT f, -- not using UserId here for simplicity
      orderAmount :: Columnar f Int
    } deriving (Generic)