Control/Monad/X/tests/ExceptionTests.hs

   1 import Control.Monad.X.Transformers
   2
   3 test2' _  = tell "1" >> throwError '2' >> return ()
   4 test3' _  = put 1 >> throwError 2 >> return ()
   5
   6 test2     = do print =<< (runError $ runWriter $ test2' ())
   7                print =<< (runWriter $ runError $ test2' ())
   8
   9 test3     = do print =<< (runError $ runStateS 7 $ test3' ())
  10                print =<< (runStateS 7 $ runError $ test3' ())
  11