[commit: ghc] wip/orf-reboot: Squash unnecessary TODOs (03506e0)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/orf-reboot
Link       : http://ghc.haskell.org/trac/ghc/changeset/03506e050f87f6b22eea171a8e35d43c48e90a04/ghc

>---------------------------------------------------------------

commit 03506e050f87f6b22eea171a8e35d43c48e90a04
Author: Adam Gundry <adam at well-typed.com>
Date:   Mon Mar 2 11:01:47 2015 +0000

    Squash unnecessary TODOs


>---------------------------------------------------------------

03506e050f87f6b22eea171a8e35d43c48e90a04
 compiler/hsSyn/HsExpr.hs      | 2 +-
 compiler/typecheck/TcHsSyn.hs | 1 -
 2 files changed, 1 insertion(+), 2 deletions(-)

diff --git a/compiler/hsSyn/HsExpr.hs b/compiler/hsSyn/HsExpr.hs
index 607a8f2..14f3c92 100644
--- a/compiler/hsSyn/HsExpr.hs
+++ b/compiler/hsSyn/HsExpr.hs
@@ -294,7 +294,7 @@ data HsExpr id
   -- For a type family, the arg types are of the *instance* tycon,
   -- not the family tycon
 
-  -- | Used to attach a selector id to non-overloaded fields (TODO: API annotation?)
+  -- | Used to attach a selector id to non-overloaded fields
   | HsSingleRecFld RdrName id
 
   -- | Expression with an explicit type signature. @e :: type@
diff --git a/compiler/typecheck/TcHsSyn.hs b/compiler/typecheck/TcHsSyn.hs
index c3c5c04..2928fcd 100644
--- a/compiler/typecheck/TcHsSyn.hs
+++ b/compiler/typecheck/TcHsSyn.hs
@@ -989,7 +989,6 @@ zonkRecFields env (HsRecFields flds dd)
   = do  { flds' <- mapM zonk_rbind flds
         ; return (HsRecFields flds' dd) }
   where
-    -- TODO new_id   <- zonkIdBndr env (unLoc (hsRecFieldId fld))
     zonk_rbind (L l fld)
       = do { new_id   <- zonkIdBndr env (unLoc (hsRecFieldId fld))
            ; new_expr <- zonkLExpr env (hsRecFieldArg fld)