diff options
| author | Bartosz Nitka <niteria@gmail.com> | 2015-12-02 05:30:22 -0800 |
|---|---|---|
| committer | Bartosz Nitka <bnitka@fb.com> | 2015-12-02 05:35:26 -0800 |
| commit | 741f837d652fd00671614d52a6cb16fbc3758480 (patch) | |
| tree | a6c8ae1e554afdaddd66f39cb47107b02a9813ad /compiler/ghci/ByteCodeGen.hs | |
| parent | 218fdf92370021b900af1e78323764cceb7ac609 (diff) | |
| download | haskell-741f837d652fd00671614d52a6cb16fbc3758480.tar.gz | |
Implement more deterministic operations and document them
I will need them for the future determinism fixes.
Test Plan: ./validate
Reviewers: simonpj, goldfire, bgamari, austin, hvr, simonmar
Reviewed By: simonpj, simonmar
Subscribers: osa1, thomie
Differential Revision: https://phabricator.haskell.org/D1537
GHC Trac Issues: #4012
Diffstat (limited to 'compiler/ghci/ByteCodeGen.hs')
| -rw-r--r-- | compiler/ghci/ByteCodeGen.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/ghci/ByteCodeGen.hs b/compiler/ghci/ByteCodeGen.hs index 83b8028c19..3091a453cd 100644 --- a/compiler/ghci/ByteCodeGen.hs +++ b/compiler/ghci/ByteCodeGen.hs @@ -479,7 +479,7 @@ schemeE d s p exp@(AnnTick (Breakpoint _id _fvs) _rhs) let letExp = AnnLet (AnnNonRec id (fvs, exp)) (emptyDVarSet, AnnVar id) schemeE d s p letExp where exp' = deAnnotate' exp - fvs = exprFreeDVars exp' + fvs = exprFreeVarsDSet exp' ty = exprType exp' -- ignore other kinds of tick |