From: simonpj@microsoft.com <unknown>
Date: Wed, 3 Jan 2007 09:40:58 +0000 (+0000)
Subject: Fix another buglet in HsDoc stuff
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=382cae3ae9f2c05fcb043fa9ae403d9ff966cee5;p=ghc-hetmet.git

Fix another buglet in HsDoc stuff

A 'foreign export' represents an *occurrence* of a Haskell name,
not a *binding* site for the Haskell name.

(This was making cc012 fail; Trac #1054.
---

diff --git a/compiler/hsSyn/HsUtils.lhs b/compiler/hsSyn/HsUtils.lhs
index b80145a..51925f8 100644
--- a/compiler/hsSyn/HsUtils.lhs
+++ b/compiler/hsSyn/HsUtils.lhs
@@ -445,7 +445,6 @@ getMainDeclBinder (ValD d)
         (name:_) -> Just (unLoc name)
 getMainDeclBinder (SigD d) = sigNameNoLoc d
 getMainDeclBinder (ForD (ForeignImport name _ _)) = Just (unLoc name)
-getMainDeclBinder (ForD (ForeignExport name _ _)) = Just (unLoc name)
+getMainDeclBinder (ForD (ForeignExport name _ _)) = Nothing
 getMainDeclBinder _ = Nothing
-
 \end{code}