summaryrefslogtreecommitdiff
path: root/compiler/parser
diff options
context:
space:
mode:
authorklebinger.andreas@gmx.at <klebinger.andreas@gmx.at>2017-11-21 18:25:57 -0500
committerBen Gamari <ben@smart-cactus.org>2017-11-21 21:11:16 -0500
commit8a8a79aa722bf6cbe352bdf972f8d2d1726ee7dc (patch)
treeab3f04795c7f8b843288ff8beaf872d36a528d1b /compiler/parser
parent63e4ac37d7268e063cb6adcea89e1e8716c5de89 (diff)
downloadhaskell-8a8a79aa722bf6cbe352bdf972f8d2d1726ee7dc.tar.gz
Update leftover reference to refer to [FunBind vs PatBind]
Reviewers: bgamari, mpickering Reviewed By: mpickering Subscribers: rwbarton, thomie, mpickering Differential Revision: https://phabricator.haskell.org/D4205
Diffstat (limited to 'compiler/parser')
-rw-r--r--compiler/parser/Parser.y4
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/parser/Parser.y b/compiler/parser/Parser.y
index d4a26895d6..c60f51722f 100644
--- a/compiler/parser/Parser.y
+++ b/compiler/parser/Parser.y
@@ -2206,7 +2206,7 @@ decl_no_th :: { LHsDecl GhcPs }
(ann, r) <- checkValDef empty SrcStrict e Nothing $3 ;
-- Depending upon what the pattern looks like we might get either
-- a FunBind or PatBind back from checkValDef. See Note
- -- [Varieties of binding pattern matches]
+ -- [FunBind vs PatBind]
case r of {
(FunBind n _ _ _ _) ->
ams (L l ()) [mj AnnFunId n] >> return () ;
@@ -2220,7 +2220,7 @@ decl_no_th :: { LHsDecl GhcPs }
let { l = comb2 $1 $> };
-- Depending upon what the pattern looks like we might get either
-- a FunBind or PatBind back from checkValDef. See Note
- -- [Varieties of binding pattern matches]
+ -- [FunBind vs PatBind]
case r of {
(FunBind n _ _ _ _) ->
ams (L l ()) (mj AnnFunId n:(fst $2)) >> return () ;