From: Isaac Dupree <id@isaac.cedarswampstudios.org>
Date: Wed, 26 Dec 2007 14:07:43 +0000 (+0000)
Subject: correct type mistake, hidden by happy -agc coercions!
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=87c0577a410487fb1255fa5015c6b4f8eaa66ca0

correct type mistake, hidden by happy -agc coercions!
---

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;