fix tidyOpenType

haskell · soulomoon · Mar 16, 2025 · Mar 16, 2025 · Mar 16, 2025 · Mar 16, 2025
commit 8730bf7ee44c53f47fc551345e19cc5b54bd22f6
diff --git a/plugins/hls-class-plugin/src/Ide/Plugin/Class/Types.hs b/plugins/hls-class-plugin/src/Ide/Plugin/Class/Types.hs
@@ -221,5 +221,5 @@ getInstanceBindTypeSigsRule recorder = do
             let name = idName id
             whenMaybe (isBindingName name) $ do
                 env <- tcInitTidyEnv
-                let (_, ty) = tidyOpenType env (idType id)
+                let ty = tidyOpenType env (idType id)
                 pure $ InstanceBindTypeSig name ty