diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2018-07-22 17:03:33 +0200 |
|---|---|---|
| committer | Krzysztof Gogolewski <krz.gogolewski@gmail.com> | 2018-07-22 17:03:34 +0200 |
| commit | 4ea9311cc5c3b99ea6915bee23f0a6776731f20e (patch) | |
| tree | 0cad7a50332dab608357397f7869cb8eb364b2ac /testsuite/tests/ghci.debugger/scripts/break029.hs | |
| parent | 5a49651f3161473b383ec497af38e9daa022b9ac (diff) | |
| download | haskell-4ea9311cc5c3b99ea6915bee23f0a6776731f20e.tar.gz | |
Fix the GHCi debugger with ApplicativeDo
Summary:
`collectLStmtsBinders` was returning nothing for `ApplicativeStmts`, which
caused the debugger to not track free variables in many cases when using
`ApplicativeDo`.
Test Plan:
* new test case
* validate
Reviewers: bgamari, erikd
Reviewed By: bgamari
Subscribers: rwbarton, thomie, carter
GHC Trac Issues: #15422
Differential Revision: https://phabricator.haskell.org/D4991
Diffstat (limited to 'testsuite/tests/ghci.debugger/scripts/break029.hs')
| -rw-r--r-- | testsuite/tests/ghci.debugger/scripts/break029.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/testsuite/tests/ghci.debugger/scripts/break029.hs b/testsuite/tests/ghci.debugger/scripts/break029.hs new file mode 100644 index 0000000000..7598d3f4b3 --- /dev/null +++ b/testsuite/tests/ghci.debugger/scripts/break029.hs @@ -0,0 +1,6 @@ +{-# LANGUAGE ApplicativeDo #-} + +f :: Int -> IO Int +f x = do + y <- return (x + 1) + return (y * 2) |