From 87c0577a410487fb1255fa5015c6b4f8eaa66ca0 Mon Sep 17 00:00:00 2001 From: Isaac Dupree Date: Wed, 26 Dec 2007 14:07:43 +0000 Subject: [PATCH] correct type mistake, hidden by happy -agc coercions! --- compiler/parser/Parser.y.pp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/parser/Parser.y.pp b/compiler/parser/Parser.y.pp index 6de95f8..cfaa8f8 100644 --- a/compiler/parser/Parser.y.pp +++ b/compiler/parser/Parser.y.pp @@ -1896,7 +1896,7 @@ docnamed :: { Located (String, (HsDoc RdrName)) } MyLeft err -> parseError (getLoc $1) err; MyRight doc -> return (L1 (name, doc)) } } -docsection :: { Located (n, HsDoc RdrName) } +docsection :: { Located (Int, HsDoc RdrName) } : DOCSECTION {% let (n, doc) = getDOCSECTION $1 in case parseHaddockString (tokenise doc) of { MyLeft err -> parseError (getLoc $1) err; -- 1.7.10.4