yammat/Handler/Summary.hs

13 lines
256 B
Haskell
Raw Normal View History

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