diff --git a/Web/Controller/Bids.hs b/Web/Controller/Bids.hs index 4821466..397089f 100644 --- a/Web/Controller/Bids.hs +++ b/Web/Controller/Bids.hs @@ -154,8 +154,7 @@ createMailBid bid = do createMailBid mailBid - Just mailBid - |> pure + Just mailBid |> pure else pure Nothing diff --git a/Web/Controller/Items.hs b/Web/Controller/Items.hs index ae8cebb..8715cb3 100644 --- a/Web/Controller/Items.hs +++ b/Web/Controller/Items.hs @@ -12,6 +12,7 @@ import Config instance Controller ItemsController where action ItemsAction = do items <- query @Item + |> orderByDesc #id |> fetch >>= collectionFetchRelated #bids diff --git a/Web/View/Items/New.hs b/Web/View/Items/New.hs index 36be834..a9e8508 100644 --- a/Web/View/Items/New.hs +++ b/Web/View/Items/New.hs @@ -5,6 +5,9 @@ data NewView = NewView { item :: Item, bidSteps :: [BidStep] } instance View NewView where html NewView { .. } = [hsx| + +