yammat/Handler/Summary.hs
2015-04-07 16:30:06 +02:00

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")