From 588b868841bd463705894572e956622e11e56736 Mon Sep 17 00:00:00 2001 From: nek0 Date: Thu, 9 Apr 2015 13:10:23 +0200 Subject: [PATCH] better article ordering --- Handler/Select.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Handler/Select.hs b/Handler/Select.hs index bee9579..bcb18d3 100644 --- a/Handler/Select.hs +++ b/Handler/Select.hs @@ -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")