Out of memory warning if Cabal exits with -9 (#947)

commercialhaskell · Sep 8, 2015 · 884e956 · 884e956
1 parent 76716b3
commit 884e956
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/Stack/Types/Build.hs b/src/Stack/Types/Build.hs
@@ -75,7 +75,7 @@ import           Stack.Types.Package
 import           Stack.Types.PackageIdentifier
 import           Stack.Types.PackageName
 import           Stack.Types.Version
-import           System.Exit (ExitCode)
+import           System.Exit (ExitCode (ExitFailure))
 import           System.FilePath (dropTrailingPathSeparator, pathSeparator)
 
 ----------------------------------------------
@@ -235,6 +235,9 @@ instance Show StackBuildException where
         in "\n--  While building package " ++ dropQuotes (show taskProvides') ++ " using:\n" ++
            "      " ++ fullCmd ++ "\n" ++
            "    Process exited with code: " ++ show exitCode ++
+           (if exitCode == ExitFailure (-9)
+                then " (THIS MAY INDICATE OUT OF MEMORY)"
+                else "") ++
            logLocations ++
            (if S.null bs
                 then ""