[Haskell-cafe] TH Q Monad and fail