diff options
| author | davve <davve@dtek.chalmers.se> | 2007-01-12 12:03:52 +0000 |
|---|---|---|
| committer | davve <davve@dtek.chalmers.se> | 2007-01-12 12:03:52 +0000 |
| commit | 38e18b27833fde812ab3f25f352bffd7c797b0f4 (patch) | |
| tree | 5267b74251922eb5bebb3662098e9b7154bcd1a4 | |
| parent | c0ab9abedac91aee2c233cdd7a693cc74988a0b0 (diff) | |
No binder name for foreign exports
| -rw-r--r-- | src/GHCUtils.hs | 2 |
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 |