nek0/yammat
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

better article ordering

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Handler/Select.hs
View file

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