$doctype 5
A simple gallery System in Haskell and Yesod $forall (Entity mediumId medium) <- recentMedia