better article ordering in restock
This commit is contained in:
parent
588b868841
commit
388f2d0f34
1 changed files with 1 additions and 1 deletions
|
@ -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")
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue