From 0d0bbbacc5fde130bf9ef6713eaaef8b346665ce Mon Sep 17 00:00:00 2001 From: Astro Date: Fri, 10 Apr 2015 02:53:55 +0200 Subject: [PATCH] summary.json --- Handler/Summary.hs | 16 +++++++++++++++- config/routes | 1 + 2 files changed, 16 insertions(+), 1 deletion(-) diff --git a/Handler/Summary.hs b/Handler/Summary.hs index 2a08b9a..78af4ec 100644 --- a/Handler/Summary.hs +++ b/Handler/Summary.hs @@ -1,7 +1,7 @@ module Handler.Summary where import Import -import Data.List as L +import qualified Data.List as L import Handler.Common getSummaryR :: Handler Html @@ -10,3 +10,17 @@ getSummaryR = do bevs <- runDB $ selectList [] [Asc BeverageIdent] defaultLayout $ do $(widgetFile "summary") + +getSummaryJsonR :: Handler RepJson +getSummaryJsonR = do + master <- getYesod + bevs <- runDB $ selectList [] [Asc BeverageIdent] + return $ + repJson $ array $ + map (\(Entity _ bev) -> + object [ "name" .= beverageIdent bev + , "value" .= beverageAmount bev + , "price" .= beveragePrice bev + , "currency" .= appCurrency (appSettings master) + ] + ) bevs diff --git a/config/routes b/config/routes index 59755ae..ca28c58 100644 --- a/config/routes +++ b/config/routes @@ -19,6 +19,7 @@ /journal JournalR GET /payout PayoutR GET POST /summary SummaryR GET +/summary.json SummaryJsonR GET /modify/#BeverageId ModifyR GET POST /delete/#BeverageId DeleteBeverageR GET /cashcheck CashCheckR GET POST