RE: Bug in do expressions

2002-11-21 Thread Simon Peyton-Jones
PROTECTED]] | Sent: 21 November 2002 00:45 | To: [EMAIL PROTECTED] | Subject: Bug in do expressions | | G'day all. | | In a recent GHC checkout, the following program: | | module Main(main) where | | import Maybe | import Control.Monad | | test :: (MonadPlus m) = [a] - m Bool

Re: Bug in do expressions

2002-11-21 Thread Andrew J Bromage
G'day all. On Thu, Nov 21, 2002 at 09:12:58AM -, Simon Peyton-Jones wrote: So GHC is 30 lines shorter thanks to you. ...and I didn't even have to delete a single line of code myself! Thanks, Simon. Cheers, Andrew Bromage ___

Bug in do expressions

2002-11-20 Thread Andrew J Bromage
G'day all. In a recent GHC checkout, the following program: module Main(main) where import Maybe import Control.Monad test :: (MonadPlus m) = [a] - m Bool test xs = do (_:_) - return xs return True `mplus` do