beebster implementation in haskell - yesod