[Haskell-cafe] how to catch/bracket in yesod-1.6?