Only show custom message with snippet

haskell · Dec 16, 2024 · 5013202 · 5013202
1 parent 044b568
commit 5013202
Showing 1 changed file with 9 additions and 8 deletions.
diff --git a/cabal-install/src/Distribution/Client/ProjectConfig.hs b/cabal-install/src/Distribution/Client/ProjectConfig.hs
@@ -909,15 +909,16 @@ reportParseResult verbosity filetype projectFile (OldParser.ProjectParseFailed (
               )
           )
           rootOrImportee
-  let doc = nest 2 $ case snippet of
-        Nothing -> text "-" <+> hsep (text <$> lines msg)
+  let doc = case snippet of
+        Nothing -> msg
         Just s ->
-          vcat
-            [ provenance
-            , text "-" <+> text "Failed to parse" <+> quotes (text s) <+> (text "with error" <> colon)
-            , nest 2 $ hsep $ text <$> lines msg
-            ]
-  dieWithException verbosity $ ReportParseResult filetype sourceFile errLineNo (render doc)
+          render . nest 2 $
+            vcat
+              [ provenance
+              , text "-" <+> text "Failed to parse" <+> quotes (text s) <+> (text "with error" <> colon)
+              , nest 2 $ hsep $ text <$> lines msg
+              ]
+  dieWithException verbosity $ ReportParseResult filetype sourceFile errLineNo doc
 
 ---------------------------------------------
 -- Finding packages in the project