diff options
author | Simon Peyton Jones <simonpj@microsoft.com> | 2022-12-02 17:15:52 +0000 |
---|---|---|
committer | Simon Peyton Jones <simonpj@microsoft.com> | 2022-12-08 14:00:21 +0000 |
commit | f73683325ce0755dabd1ed801ba3d6a2521ae3c4 (patch) | |
tree | 0d2194fb466adca9f319eb535330dd157a947207 | |
parent | 10f053dbad17bef80c45794cb2e6d9d5585f288d (diff) | |
download | haskell-f73683325ce0755dabd1ed801ba3d6a2521ae3c4.tar.gz |
Wibble unused variable
(fix me before finally landign)
-rw-r--r-- | compiler/GHC/Core/Type.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Core/Type.hs b/compiler/GHC/Core/Type.hs index c926961703..a3bf436ac8 100644 --- a/compiler/GHC/Core/Type.hs +++ b/compiler/GHC/Core/Type.hs @@ -1488,7 +1488,7 @@ tyConAppResKind tc args tyConAppResKind tc args = go1 tc_bndrs args where - !(tc_kind, tc_bndrs, !tc_res_kind, closed_res_kind) = tyConTypeKindPieces tc + !(_, tc_bndrs, !tc_res_kind, closed_res_kind) = tyConTypeKindPieces tc init_subst = mkEmptySubst $ mkInScopeSet (tyCoVarsOfTypes args) go1 :: [TyConBinder] -> [Type] -> Type |