diff --git a/Handler/Supplier.hs b/Handler/Supplier.hs index 398d35d..f26aa3f 100755 --- a/Handler/Supplier.hs +++ b/Handler/Supplier.hs @@ -5,7 +5,7 @@ import Data.Maybe getSupplierR :: Handler Html getSupplierR = do - sups <- runDB $ selectList [] [Desc SupplierIdent] + sups <- runDB $ selectList [] [Asc SupplierIdent] defaultLayout $ $(widgetFile "supplier")