fix: stylish haskell

Author: sgillespie

plugins/hls-change-type-signature-plugin/src/Ide/Plugin/ChangeTypeSignature.hs

@@ -172,10 +172,11 @@ findSolverReport (TcRnMessageWithInfo _ (TcRnMessageDetailed errInfo msg)) =
         _ -> Nothing
 #if MIN_VERSION_ghc(9,10,0)
 findSolverReport (TcRnSolverReport (SolverReportWithCtxt _ mismatch) _) =
+    Just (mismatch, Nothing)
 #else
 findSolverReport (TcRnSolverReport (SolverReportWithCtxt _ mismatch) _ _) =
-#endif
     Just (mismatch, Nothing)
+#endif
 findSolverReport _ = Nothing
 
 -- TODO: Make this a prism?
@@ -187,11 +188,10 @@ findMismatchMessage _ = Nothing
 -- TODO: Make this a prism?
 findTypeEqMismatch :: MismatchMsg -> Maybe (Type, Type)
 #if MIN_VERSION_ghc(9,12,0)
-findTypeEqMismatch (TypeEqMismatch _ _ _ expected actual _ _) =
+findTypeEqMismatch (TypeEqMismatch _ _ _ expected actual _ _) = Just (expected, actual)
 #else
-findTypeEqMismatch (TypeEqMismatch _ _ _ _ expected actual _ _) =
+findTypeEqMismatch (TypeEqMismatch _ _ _ _ expected actual _ _) = Just (expected, actual)
 #endif
-    Just (expected, actual)
 findTypeEqMismatch _ = Nothing
 
 -- | If a diagnostic has the proper message create a ChangeSignature from it