[commit: ghc] : Avoid invalid haddock synatx (33728e8)

[git at git.haskell.org]

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

On branch  : 
Link       : http://ghc.haskell.org/trac/ghc/changeset/33728e85c73918b2e4549ee92f5350a7accce00a/ghc

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

commit 33728e85c73918b2e4549ee92f5350a7accce00a
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Sun Oct 9 13:45:08 2016 -0400

    Avoid invalid haddock synatx


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

33728e85c73918b2e4549ee92f5350a7accce00a
 compiler/specialise/Rules.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/specialise/Rules.hs b/compiler/specialise/Rules.hs
index 5a5ce0f..6297d88 100644
--- a/compiler/specialise/Rules.hs
+++ b/compiler/specialise/Rules.hs
@@ -1164,7 +1164,7 @@ ruleCheck _   (Type _)      = emptyBag
 ruleCheck _   (Coercion _)  = emptyBag
 ruleCheck env (App f a)     = ruleCheckApp env (App f a) []
 ruleCheck env (ConApp _ args) = unionManyBags (map (ruleCheck env) args)
-    -- ^ TODO #12618 check dc?
+    -- TODO #12618 check dc?
 ruleCheck env (Tick _ e)  = ruleCheck env e
 ruleCheck env (Cast e _)    = ruleCheck env e
 ruleCheck env (Let bd e)    = ruleCheckBind env bd `unionBags` ruleCheck env e