throw exception if library copy fails

1 files changed, 5 insertions, 3 deletions

diff --git a/Build/OSXMkLibs.hs b/Build/OSXMkLibs.hs
index da98d29d6..80f24a681 100644
--- a/Build/OSXMkLibs.hs
+++ b/Build/OSXMkLibs.hs
@@ -12,6 +12,7 @@ import Data.Maybe
 import System.FilePath
 import System.Directory
 import Control.Monad
+import Control.Monad.IfElse
 import Data.List
 import Data.String.Utils
 import Control.Applicative
@@ -53,9 +54,10 @@ installLibs appbase replacement_libs libmap = do
 			, do
 				createDirectoryIfMissing True (parentDir dest)
 				putStrLn $ "installing " ++ pathlib ++ " as " ++ shortlib
-				_ <- boolSystem "cp" [File pathlib, File dest]
-				_ <- boolSystem "chmod" [Param "644", File dest]
-				_ <- boolSystem "ln" [Param "-s", File fulllib, File symdest]
+				unlessM (boolSystem "cp" [File pathlib, File dest]
+					<&&> boolSystem "chmod" [Param "644", File dest]
+					<&&> boolSystem "ln" [Param "-s", File fulllib, File symdest]) $
+					error "library install failed"
 				return $ Just appbase
 			)
 	return (catMaybes libs, replacement_libs', libmap')