better article ordering in restock

This commit is contained in:
nek0 2015-04-09 13:47:27 +02:00
parent 588b868841
commit 388f2d0f34

View file

@ -5,7 +5,7 @@ import Handler.Common
getRestockR :: Handler Html getRestockR :: Handler Html
getRestockR = do getRestockR = do
beverages <- runDB $ selectList [] [Desc BeverageIdent] beverages <- runDB $ selectList [] [Asc BeverageIdent]
defaultLayout $ do defaultLayout $ do
$(widgetFile "restock") $(widgetFile "restock")