Non-exhaustive pattern exception when parsing MultiWayIf with parse(Module)WithMode

[bergmark]

This is using haskell-src-exts 1.15.0 and doesn't seem to be reproducible when using parseFileWithMode.

Reproduction:

λ> import Language.Haskell.Exts.Annotated
λ> fmap (fmap (const ())) (parseModuleWithMode defaultParseMode { extensions = [EnableExtension MultiWayIf] } "f = if | True -> ()")

ParseOk (Module () Nothing [] [] [PatBind () (PVar () (Ident () "f")) Nothing (UnGuardedRhs ()
*** Exception: src/Language/Haskell/Exts/Annotated/Syntax.hs:(1135,16)-(1186,55): Non-exhaustive patterns in case

[UnkindPartition]

D'oh! Turns out we don't have -Wall enabled. Will fix shortly.

[UnkindPartition]

These particular errors should now be fixed in HEAD.

However, running with warnings enabled revealed some other incomplete patterns. I'll try to fix them during the next couple of days and make a bugfix release then.

Still, the problems may only arise when using the new extensions. Code that worked previously should continue working. So I don't think there's a reason not to upgrade.

[UnkindPartition]

And thanks for the report :)

[UnkindPartition]

I've fixed all inexhaustive patterns. Now we build with -fwarn-incomplete-patterns by default.

Released as 1.15.0.1.

[bergmark]

It works, thanks!