[commit: ghc] master: Fix thinko that crept into D1908 (27842ec)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/27842ec190cf46b6e494520761af41847837dc86/ghc

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

commit 27842ec190cf46b6e494520761af41847837dc86
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Wed Feb 17 21:18:00 2016 +0100

    Fix thinko that crept into D1908
    
    RyanGlScott updated the Diff only after I had merged it.


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

27842ec190cf46b6e494520761af41847837dc86
 compiler/typecheck/TcGenDeriv.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/typecheck/TcGenDeriv.hs b/compiler/typecheck/TcGenDeriv.hs
index 577b3dc..34e9d11 100644
--- a/compiler/typecheck/TcGenDeriv.hs
+++ b/compiler/typecheck/TcGenDeriv.hs
@@ -1806,7 +1806,7 @@ only Foldable instances are not possible for function types at all.
 Given (data T a = T a a (T a) deriving Foldable), we get:
 
   instance Foldable T where
-      foldr f z (T1 x1 x2 x3) =
+      foldr f z (T x1 x2 x3) =
         $(foldr 'a 'a) x1 ( $(foldr 'a 'a) x2 ( $(foldr 'a '(T a)) x3 z ) )
 
 -XDeriveFoldable is different from -XDeriveFunctor in that it filters out