[commit: ghc] wip/names3: KnownUniques: Fix unused binder (8db89df)

[git at git.haskell.org]

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

On branch  : wip/names3
Link       : http://ghc.haskell.org/trac/ghc/changeset/8db89dff165d874a6fa466cfb7ea0e0181bad85c/ghc

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

commit 8db89dff165d874a6fa466cfb7ea0e0181bad85c
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Thu Sep 8 17:03:20 2016 -0400

    KnownUniques: Fix unused binder


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

8db89dff165d874a6fa466cfb7ea0e0181bad85c
 compiler/prelude/KnownUniques.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/compiler/prelude/KnownUniques.hs b/compiler/prelude/KnownUniques.hs
index f1fa1bf..0e5995c 100644
--- a/compiler/prelude/KnownUniques.hs
+++ b/compiler/prelude/KnownUniques.hs
@@ -114,10 +114,10 @@ getCTupleTyConName n =
 getCTupleDataConUnique :: Int -> Name
 getCTupleDataConUnique n =
     case n `divMod` 3 of
-      (arity, 0) -> cTupleDataConName arity
-      (arity, 1) -> panic "getCTupleDataConName: no worker"
-      (arity, 2) -> mkPrelTyConRepName $ cTupleDataConName arity
-      _          -> panic "getCTupleDataConName: impossible"
+      (arity,  0) -> cTupleDataConName arity
+      (_arity, 1) -> panic "getCTupleDataConName: no worker"
+      (arity,  2) -> mkPrelTyConRepName $ cTupleDataConName arity
+      _           -> panic "getCTupleDataConName: impossible"
 
 --------------------------------------------------
 -- Normal tuples