ToDo part of https://github.com/ShaneKilkelly/YesodExample