Pet project to try some haskell/yesod