Building a Blog in Haskell with Yesod (7 Part Series)
A good read about Yesod is available online for free: Developing web applications with Haskell and Yesod. That's why this series will be a commentary of the commits from a repo we will use to develop a super simple blog.
In other words, this won't be good material to learn how to use Yesod. However, it will hopefully give an overview of how the framework works.
Up until now, the logged-in user didn't have any relationships with the posts. Commit b9ed6789ed578e4349f9fc0eee670e2df87434be adds a
Post and makes sure it gets filled with the id of the authenticated user.
In a multi-author blog, only the owner should be allowed to delete a post. Commit db722e785cc09ad5642486df17c770e85899648c takes care of that. The important bit is the following
isAuthorized (PostR postId) _ = isOwner postId
Since only the owner can delete a post, it makes sense to reflect that in the UI. Commit 2378194354b6e0e92fb1c83ac5feb97aac8d219b does exactly that:
$if userId == (postUserId $ entityVal post) <button>Delete $else <p>
The last thing to do is to show the author names alongside their blogposts. Given our database schema (
User ident Text password Text Maybe Post title Text text Textarea userId UserId
we need to perform a join between
Unfortunately, the default database library for Yesod, Persistent, doesn't support joins in a type-safe way. In fact, the only way would be to use
Here we can see that the delete button is shown only to the owner of the post and that the author names is displayed together with title and text: