aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authordavve <davve@dtek.chalmers.se>2007-01-17 21:42:41 +0000
committerdavve <davve@dtek.chalmers.se>2007-01-17 21:42:41 +0000
commit8dc323fc0d7f0a49e5489fb1bb92dcaa45c4511c (patch)
treeee48a6f2ca5f52079d37074f0891d64a0a7c11cb /src
parent3878b493139d8c163c3a11529c229bb2524c14b4 (diff)
Remove comment
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 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)