diff options
| author | Alan Zimmerman <alan.zimm@gmail.com> | 2021-05-16 21:22:39 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-05-21 15:06:20 -0400 |
| commit | 5ab174e4fa12740aecdcfe06ffb4ca16724a4bae (patch) | |
| tree | f4ea8a871d380e12833bef4e98d59b9da0f02f8b /compiler/GHC/Parser.y | |
| parent | 0da85d41ee6bc7f941cdbee8cebd5b57fa35396f (diff) | |
| download | haskell-5ab174e4fa12740aecdcfe06ffb4ca16724a4bae.tar.gz | |
Remove Maybe from Context in HsQualTy
Updates haddock submodule
Closes #19845
Diffstat (limited to 'compiler/GHC/Parser.y')
| -rw-r--r-- | compiler/GHC/Parser.y | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Parser.y b/compiler/GHC/Parser.y index 38c5233ab4..17a95f6857 100644 --- a/compiler/GHC/Parser.y +++ b/compiler/GHC/Parser.y @@ -2105,7 +2105,7 @@ ctype :: { LHsType GhcPs } , hst_xforall = noExtField , hst_body = $2 } } | context '=>' ctype {% acsA (\cs -> (sLL (reLoc $1) (reLoc $>) $ - HsQualTy { hst_ctxt = Just (addTrailingDarrowC $1 $2 cs) + HsQualTy { hst_ctxt = addTrailingDarrowC $1 $2 cs , hst_xqual = NoExtField , hst_body = $3 })) } |