better article ordering

This commit is contained in:
nek0 2015-04-09 13:10:23 +02:00
parent 41f0d3ccc1
commit 588b868841
1 changed files with 2 additions and 2 deletions

View File

@ -11,7 +11,7 @@ getSelectR uId = do
case mUser of
Just user -> do
master <- getYesod
beverages <- runDB $ selectList [BeverageAmount >=. 0] [Desc BeverageIdent]
beverages <- runDB $ selectList [BeverageAmount >. 0] [Asc BeverageIdent]
defaultLayout $ do
$(widgetFile "select")
Nothing -> do
@ -20,7 +20,7 @@ getSelectR uId = do
getSelectCashR :: Handler Html
getSelectCashR = do
beverages <- runDB $ selectList [BeverageAmount >=. 0] [Desc BeverageIdent]
beverages <- runDB $ selectList [BeverageAmount >. 0] [Asc BeverageIdent]
defaultLayout $ do
$(widgetFile "selectCash")