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/parser | |
| 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/parser')
| -rw-r--r-- | compiler/parser/RdrHsSyn.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/parser/RdrHsSyn.hs b/compiler/parser/RdrHsSyn.hs index edc8a63bad..beb3b3bffa 100644 --- a/compiler/parser/RdrHsSyn.hs +++ b/compiler/parser/RdrHsSyn.hs @@ -1119,8 +1119,8 @@ checkCmdLStmt :: ExprLStmt RdrName -> P (CmdLStmt RdrName) checkCmdLStmt = locMap checkCmdStmt checkCmdStmt :: SrcSpan -> ExprStmt RdrName -> P (CmdStmt RdrName) -checkCmdStmt _ (LastStmt e r) = - checkCommand e >>= (\c -> return $ LastStmt c r) +checkCmdStmt _ (LastStmt e s r) = + checkCommand e >>= (\c -> return $ LastStmt c s r) checkCmdStmt _ (BindStmt pat e b f) = checkCommand e >>= (\c -> return $ BindStmt pat c b f) checkCmdStmt _ (BodyStmt e t g ty) = |