20 lines
593 B
Haskell
20 lines
593 B
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
{-# LANGUAGE DeriveGeneric #-}
|
|
module Types.Product where
|
|
|
|
import GHC.Generics
|
|
|
|
import qualified Data.Text as T
|
|
|
|
data ProductSubmit = ProductSubmit
|
|
{ productSubmitIdent :: T.Text
|
|
, productSubmitPrice :: Int
|
|
, productSubmitMl :: Int
|
|
, productSubmitAvatar :: Maybe Int
|
|
, productSubmitSupplier :: Maybe Int
|
|
, productSubmitMaxAmount :: Int
|
|
, productSubmitAmountPerCrate :: Int
|
|
, productSubmitPricePerCrate :: Maybe Int
|
|
, productSubmitArtNr :: Maybe T.Text
|
|
} deriving (Generic, Show)
|