2015-04-04 04:46:33 +00:00
|
|
|
module Handler.Summary where
|
|
|
|
|
|
|
|
import Import
|
|
|
|
import Data.List as L
|
2015-04-07 14:30:06 +00:00
|
|
|
import Handler.Common
|
2015-04-04 04:46:33 +00:00
|
|
|
|
|
|
|
getSummaryR :: Handler Html
|
|
|
|
getSummaryR = do
|
2015-04-04 06:18:15 +00:00
|
|
|
master <- getYesod
|
2015-04-04 04:46:33 +00:00
|
|
|
bevs <- runDB $ selectList [] [Asc BeverageIdent]
|
|
|
|
defaultLayout $ do
|
|
|
|
$(widgetFile "summary")
|