Use noticeDoc to preserve indent

haskell · Jan 2, 2025 · 672bac4 · 672bac4
1 parent a3c9758
commit 672bac4
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/cabal-install/src/Distribution/Client/CmdTarget.hs b/cabal-install/src/Distribution/Client/CmdTarget.hs
@@ -37,7 +37,7 @@ import Distribution.Simple.Command
   )
 import Distribution.Simple.Flag (fromFlagOrDefault)
 import Distribution.Simple.Utils
-  ( notice
+  ( noticeDoc
   , safeHead
   , wrapText
   )
@@ -61,7 +61,7 @@ targetCommand =
         Just . const . render $
           vcat
             [ intro
-            , vcat $ punctuate (text "\n") [targetForms, ctypes, Pretty.empty]
+            , vcat [targetForms, ctypes, Pretty.empty]
             , caution
             ]
     , commandNotes = Just $ \pname -> render $ examples pname
@@ -185,7 +185,7 @@ reportBuildTargetProblems verbosity = reportTargetProblems verbosity "target"
 
 printTargetForms :: Verbosity -> TargetsMap -> ElaboratedInstallPlan -> IO ()
 printTargetForms verbosity targets elaboratedPlan =
-  notice verbosity . render $
+  noticeDoc verbosity $
     vcat
       [ text "Fully qualified target forms" Pretty.<> colon
       , nest 1 $ vcat [text "-" <+> text tf | tf <- targetForms]