mateamt/src/Model/Amount.hs

{-# LANGUAGE OverloadedStrings #-}
module Model.Amount where

import Data.Profunctor.Product (p5)

import qualified Database.PostgreSQL.Simple as PGS

import Opaleye as O
import Opaleye.Constant as C

initAmount :: PGS.Query
initAmount = mconcat
  [ "CREATE TABLE IF NOT EXISTS \"amount\" ("
  , "amounts_product_id BIGINT      NOT NULL REFERENCES product ON DELETE CASCADE,"
  , "amounts_timestamp  TIMESTAMPTZ NOT NULL,"
  , "amounts_amount     INTEGER     NOT NULL,"
  , "amounts_price      INTEGER     NOT NULL,"
  , "amounts_verified   BOOLEAN     NOT NULL,"
  , "PRIMARY KEY (product_id, timestamp)"
  , ")"
  ]

amountTable :: Table
  ( Field SqlInt4
  , Field SqlDate
  , Field SqlInt4
  , Field SqlInt4
  , Field SqlBool
  )
  ( Field SqlInt4
  , Field SqlDate
  , Field SqlInt4
  , Field SqlInt4
  , Field SqlBool
  )
amountTable = table "amount" (
  p5
    ( tableField "amonnts_product_id"
    , tableField "amounts_timestamp"
    , tableField "amounts_amount"
    , tableField "amounts_price"
    , tableField "amounts_verified"
    )
  )