diff options
| author | Cale Gibbard <cgibbard@gmail.com> | 2020-04-02 15:46:33 -0400 |
|---|---|---|
| committer | cgibbard <cgibbard@gmail.com> | 2020-04-17 13:08:47 -0400 |
| commit | a05348ebaa11d563ab2e33325055317ff3cb8afc (patch) | |
| tree | befc09462330d7e62dd66bb1d4b3ca4f8187d327 /compiler/GHC/Tc/Module.hs | |
| parent | bfde3b76ac7f5a72eca012fe34ac1340a5ce2011 (diff) | |
| download | haskell-a05348ebaa11d563ab2e33325055317ff3cb8afc.tar.gz | |
Change the fail operator argument of BindStmt to be a Maybe
Don't use noSyntaxExpr for it. There is no good way to defensively case
on that, nor is it clear one ought to do so.
Diffstat (limited to 'compiler/GHC/Tc/Module.hs')
| -rw-r--r-- | compiler/GHC/Tc/Module.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Tc/Module.hs b/compiler/GHC/Tc/Module.hs index 4e5f2be37d..3c92f39d04 100644 --- a/compiler/GHC/Tc/Module.hs +++ b/compiler/GHC/Tc/Module.hs @@ -2197,7 +2197,7 @@ tcUserStmt (L loc (BodyStmt _ expr _ _)) (L loc (VarPat noExtField (L loc fresh_it))) (nlHsApp ghciStep rn_expr) (mkRnSyntaxExpr bindIOName) - noSyntaxExpr + Nothing -- [; print it] print_it = L loc $ BodyStmt noExtField |