[commit: ghc] master: TcTyClsDecls: Add a type annotation (850710a)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/850710ab8c0fe69ea053d48583071fe1e5ffd067/ghc

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

commit 850710ab8c0fe69ea053d48583071fe1e5ffd067
Author: Ömer Sinan Ağacan <omeragacan at gmail.com>
Date:   Sun Dec 20 22:37:50 2015 -0500

    TcTyClsDecls: Add a type annotation


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

850710ab8c0fe69ea053d48583071fe1e5ffd067
 compiler/typecheck/TcTyClsDecls.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/compiler/typecheck/TcTyClsDecls.hs b/compiler/typecheck/TcTyClsDecls.hs
index c475382..026c0db 100644
--- a/compiler/typecheck/TcTyClsDecls.hs
+++ b/compiler/typecheck/TcTyClsDecls.hs
@@ -2146,6 +2146,7 @@ checkValidDataCon dflags existential_ok tc con
   where
     ctxt = ConArgCtxt (dataConName con)
 
+    check_bang :: HsSrcBang -> HsImplBang -> Int -> TcM ()
     check_bang (HsSrcBang _ _ SrcLazy) _ n
       | not (xopt LangExt.StrictData dflags)
       = addErrTc