12 lines
256 B
Haskell
12 lines
256 B
Haskell
module Handler.Summary where
|
|
|
|
import Import
|
|
import Data.List as L
|
|
import Handler.Common
|
|
|
|
getSummaryR :: Handler Html
|
|
getSummaryR = do
|
|
master <- getYesod
|
|
bevs <- runDB $ selectList [] [Asc BeverageIdent]
|
|
defaultLayout $ do
|
|
$(widgetFile "summary")
|