Re: bug report

[Simon L Peyton Jones]

 
> > > module Strange( strange ) where
> > 
> > > strange :: (a,a,a) -> a
> > > strange triple
> > >   | (first triple) == (fst triple) = first triple
> > 
> > > first :: (a,b,c) -> a
> > > first (a,b,c)
> > >   = a
> > 
> > Stange.lhs:5: Couldn't match the type
> >                `PrelTup.(,,) tazz' against `PrelTup.(,)'
> >     Expected: `(tazz, tazz, tazz)'
> >     Inferred: `(tazz, tazN)'
> >     In a list-comprehension qualifer:


Thanks for the report.   The error message now says "In a guard:". (In the
next release.)

Simon