posts: order id descending

3v0k4 · Jul 20, 2019 · 716817e · 716817e
1 parent b90b5cc
commit 716817e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Handler/Posts.hs b/src/Handler/Posts.hs
@@ -18,14 +18,14 @@ postForm =
 getPostsR :: Handler Html
 getPostsR = do
   (widget, enctype) <- generateFormPost postForm
-  allPosts :: [Entity Post] <- runDB $ selectList [] []
+  allPosts :: [Entity Post] <- runDB $ selectList [] [ Desc PostId ]
   emptyLayout $ do
     $(widgetFile "posts")
 
 postPostsR :: Handler Html
 postPostsR = do
   ((result, widget), enctype) <- runFormPost postForm
-  allPosts :: [Entity Post] <- runDB $ selectList [] []
+  allPosts :: [Entity Post] <- runDB $ selectList [] [ Desc PostId ]
   case result of
     FormSuccess post -> do
       _ <- runDB $ insert post