Stderr output pre-GhcModT for stack cradle

2015-08-31 07:33:36 +02:00
parent 2a0414f368
commit 0b65487e50
13 changed files with 189 additions and 161 deletions
--- a/Language/Haskell/GhcMod/Error.hs
+++ b/Language/Haskell/GhcMod/Error.hs
@@ -140,9 +140,9 @@ gmeDoc e = case e of
               ++ intercalate "\", \"" cfs ++"\"."
    GMECabalStateFile csfe ->
        gmCsfeDoc csfe
-    GMEStackBootrap rv stderr ->
-        (text $ "Boostrapping stack project failed (exited with "++show rv++")")
-          <+>: text stderr
+    GMEStackBootrap msg ->
+        (text $ "Boostrapping stack project failed")
+          <+>: text msg

 ghcExceptionDoc :: GhcException -> Doc
 ghcExceptionDoc e@(CmdLineError _) =