diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2015-03-13 16:39:58 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2015-09-17 16:52:03 +0100 |
| commit | 8ecf6d8f7dfee9e5b1844cd196f83f00f3b6b879 (patch) | |
| tree | 9bf2b8601fefa7e1eaac11079d27660824b1466f /compiler/deSugar/DsGRHSs.hs | |
| parent | 43eb1dc52a4d3cbba9617f5a26177b8251d84b6a (diff) | |
| download | haskell-8ecf6d8f7dfee9e5b1844cd196f83f00f3b6b879.tar.gz | |
ApplicativeDo transformation
Summary:
This is an implementation of the ApplicativeDo proposal. See the Note
[ApplicativeDo] in RnExpr for details on the current implementation,
and the wiki page https://ghc.haskell.org/trac/ghc/wiki/ApplicativeDo
for design notes.
Test Plan: validate
Reviewers: simonpj, goldfire, austin
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D729
Diffstat (limited to 'compiler/deSugar/DsGRHSs.hs')
| -rw-r--r-- | compiler/deSugar/DsGRHSs.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/deSugar/DsGRHSs.hs b/compiler/deSugar/DsGRHSs.hs index 1346f8af5e..6e4056a7c3 100644 --- a/compiler/deSugar/DsGRHSs.hs +++ b/compiler/deSugar/DsGRHSs.hs @@ -123,6 +123,8 @@ matchGuards (LastStmt {} : _) _ _ _ = panic "matchGuards LastStmt" matchGuards (ParStmt {} : _) _ _ _ = panic "matchGuards ParStmt" matchGuards (TransStmt {} : _) _ _ _ = panic "matchGuards TransStmt" matchGuards (RecStmt {} : _) _ _ _ = panic "matchGuards RecStmt" +matchGuards (ApplicativeStmt {} : _) _ _ _ = + panic "matchGuards ApplicativeLastStmt" isTrueLHsExpr :: LHsExpr Id -> Maybe (CoreExpr -> DsM CoreExpr) |