prepare creation of products

This commit is contained in:
nek0 2019-12-17 01:56:22 +01:00
parent 7ad8379125
commit ad0a795ff0
6 changed files with 48 additions and 1 deletions

View File

@ -77,6 +77,11 @@ type UserAPI =
:<|> "product" :> "refill"
:> ReqBody '[FormUrlEncoded] [MT.AmountRefill]
:> Post '[HTML] ProductRefillPage
:<|> "product" :> "new"
:> Get '[HTML] ProductNewPage
:<|> "product" :> "new"
:> ReqBody '[FormUrlEncoded] ProductSubmit
:> Post '[HTML] UserOverviewPage
:<|> "auth"
:> QueryParam "destination" T.Text
:> Get '[HTML]
@ -112,6 +117,8 @@ type UserAPI =
productGetPriceListLink :<|>
productGetRefillLink :<|>
productPostRefillLink :<|>
productGetNewLink :<|>
productPostNewLink :<|>
authLink :<|>
authPostLink :<|>
authLogoutLink

View File

@ -91,3 +91,8 @@ productPostRefill mcookie refills = do
redirectOverAuth (read <$> muser) (Just productGetRefillLink) Nothing
where
translate l10n loc = localize l10n loc . gettext
productGetNew
:: Maybe T.Text
-> UserHandler ProductNewPage
productgetNew mcookie = do

View File

@ -87,7 +87,7 @@ userApp initState = serveWithContext userApi EmptyContext $
:<|> journalPostCheckControl mcookie
:<|> productGetPriceList mcookie
:<|> productGetRefill mcookie
:<|> (\_ _ -> error "not yet implemented") mcookie
:<|> productPostRefill mcookie
:<|> authControl mcookie
:<|> authPostControl mcookie
:<|> authLogoutControl mcookie

19
src/Types/Product.hs Normal file
View File

@ -0,0 +1,19 @@
{-# 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)

View File

@ -29,3 +29,5 @@ type CashBuyConfirmPage = H.Html
type ProductPriceListPage = H.Html
type ProductRefillPage = H.Html
type productNewPage = H.Html

View File

@ -150,3 +150,17 @@ productRefillPage l10n loc mcookie prodList =
$ H.toHtml $ translate "Submit"
where
translate = localize l10n loc . gettext
productNewPage
:: L10n
-> Locale
-> Maybe T.Text
-> ProductNewPage
productnewPage l10n loc mcookie =
scaffold l10n loc mcookie (initPage $
translate "Matebeamter" <>
" - " <>
translate "Create new product"
) $ do
where
translate = localize l10n loc . gettext