diff --git a/Handler/Restock.hs b/Handler/Restock.hs index 8239a8e..dc51628 100644 --- a/Handler/Restock.hs +++ b/Handler/Restock.hs @@ -5,7 +5,7 @@ import Handler.Common getRestockR :: Handler Html getRestockR = do - beverages <- runDB $ selectList [] [Desc BeverageIdent] + beverages <- runDB $ selectList [] [Asc BeverageIdent] defaultLayout $ do $(widgetFile "restock")