From 38e18b27833fde812ab3f25f352bffd7c797b0f4 Mon Sep 17 00:00:00 2001 From: davve Date: Fri, 12 Jan 2007 12:03:52 +0000 Subject: No binder name for foreign exports --- src/GHCUtils.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/GHCUtils.hs') diff --git a/src/GHCUtils.hs b/src/GHCUtils.hs index b5448dd4..01bc89f4 100644 --- a/src/GHCUtils.hs +++ b/src/GHCUtils.hs @@ -11,5 +11,5 @@ 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 -- cgit v1.2.3