aboutsummaryrefslogtreecommitdiff
path: root/src/GHCUtils.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/GHCUtils.hs')
-rw-r--r--src/GHCUtils.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GHCUtils.hs b/src/GHCUtils.hs
index e6820c66..4b6efdbd 100644
--- a/src/GHCUtils.hs
+++ b/src/GHCUtils.hs
@@ -12,7 +12,7 @@ getMainDeclBinder :: HsDecl name -> Maybe name
getMainDeclBinder (TyClD d) = Just (tcdName d)
getMainDeclBinder (ValD d)
= case collectAcc d [] of
- [] -> Nothing -- see rn003
+ [] -> Nothing
(name:_) -> Just (unLoc name)
getMainDeclBinder (SigD d) = sigNameNoLoc d
getMainDeclBinder (ForD (ForeignImport name _ _)) = Just (unLoc name)