From 382cae3ae9f2c05fcb043fa9ae403d9ff966cee5 Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Wed, 3 Jan 2007 09:40:58 +0000
Subject: [PATCH] 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.
---
 compiler/hsSyn/HsUtils.lhs |    3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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}
-- 
1.7.10.4