Fix up mistakes from merge, TODO fix merge issues for 9.3.0

Author: dylan-thinnes

ghcide/src/Development/IDE/Core/Compile.hs

@@ -720,7 +720,7 @@ tagDiag (w@(Just (WarningWithFlag warning)), fd)
   | Just tag <- requiresTag warning
   = (w, fd & fdLspDiagnosticL %~ \diag -> diag { _tags = Just $ tag : concat (_tags diag) })
 #endif
-  where
+    where
     requiresTag :: WarningFlag -> Maybe DiagnosticTag
 #if !MIN_VERSION_ghc(9,7,0)
     -- doesn't exist on 9.8, we use WarningWithCategory instead

ghcide/src/Development/IDE/GHC/Compat/Outputable.hs

@@ -121,9 +121,10 @@ pprNoLocMsgEnvelope (MsgEnvelope { errMsgDiagnostic = e
 #if MIN_VERSION_ghc(9,6,1)
 type ErrMsg  = MsgEnvelope GhcMessage
 type WarnMsg  = MsgEnvelope GhcMessage
-#elif MIN_VERSION_ghc(9,3,0)
+#else
 type ErrMsg  = MsgEnvelope DecoratedSDoc
 type WarnMsg  = MsgEnvelope DecoratedSDoc
+#endif
 
 mkPrintUnqualifiedDefault :: HscEnv -> GlobalRdrEnv -> PrintUnqualified
 #if MIN_VERSION_ghc(9,5,0)

ghcide/src/Development/IDE/Types/Diagnostics.hs

@@ -94,23 +94,13 @@ ideErrorFromLspDiag lspDiag fdFilePath origMsg =
 attachedReason :: Traversal' Diagnostic (Maybe JSON.Value)
 attachedReason = data_ . non (JSON.object []) . JSON.atKey "attachedReason"
 
-#if MIN_VERSION_ghc(9,3,0)
 attachReason :: Maybe DiagnosticReason -> Diagnostic -> Diagnostic
 attachReason Nothing = id
 attachReason (Just wr) = attachedReason .~ fmap JSON.toJSON (showReason wr)
  where
   showReason = \case
     WarningWithFlag flag -> showFlag flag
     _                    -> Nothing
-#else
-attachReason :: WarnReason -> Diagnostic -> Diagnostic
-attachReason wr = attachedReason .~ fmap JSON.toJSON (showReason wr)
- where
-  showReason = \case
-    NoReason       -> Nothing
-    Reason flag    -> showFlag flag
-    ErrReason flag -> showFlag =<< flag
-#endif
 
 showFlag :: WarningFlag -> Maybe T.Text
 showFlag flag = ("-W" <>) . T.pack . flagSpecName <$> find ((== flag) . flagSpecFlag) wWarningFlags