diff options
| author | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2020-03-25 00:43:32 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-03-29 17:33:59 -0400 |
| commit | 45eb9d8cad254440eaea25676d6788ca13baa2fb (patch) | |
| tree | 2a3fb7049b8d32ef9bf5d6cb7a76f0631d821fe6 /compiler/GHC/Rename/Expr.hs | |
| parent | a0d8e92e9c9b67426aa139d6bc46363d8940f992 (diff) | |
| download | haskell-45eb9d8cad254440eaea25676d6788ca13baa2fb.tar.gz | |
Minor cleanup
- Simplify mkBuildExpr, the function newTyVars was called
only on a one-element list.
- TTG: use noExtCon in more places. This is more future-proof.
- In zonkExpr, panic instead of printing a warning.
Diffstat (limited to 'compiler/GHC/Rename/Expr.hs')
| -rw-r--r-- | compiler/GHC/Rename/Expr.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/GHC/Rename/Expr.hs b/compiler/GHC/Rename/Expr.hs index 87a98abd52..7b865dc824 100644 --- a/compiler/GHC/Rename/Expr.hs +++ b/compiler/GHC/Rename/Expr.hs @@ -1853,7 +1853,8 @@ isStrictPattern lpat = NPat{} -> True NPlusKPat{} -> True SplicePat{} -> True - _otherwise -> panic "isStrictPattern" + CoPat{} -> panic "isStrictPattern: CoPat" + XPat nec -> noExtCon nec {- Note [ApplicativeDo and refutable patterns] |