aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/GHCUtils.hs2
1 files changed, 1 insertions, 1 deletions
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