Fix bug that caused provisioning new chroots to fail.

1 files changed, 9 insertions, 6 deletions

diff --git a/src/Propellor/Shim.hs b/src/Propellor/Shim.hs
index 7cdecefd..a3c8e701 100644
--- a/src/Propellor/Shim.hs
+++ b/src/Propellor/Shim.hs
@@ -55,12 +55,15 @@ shebang :: String
 shebang = "#!/bin/sh"
 
 checkAlreadyShimmed :: FilePath -> IO FilePath -> IO FilePath
-checkAlreadyShimmed f nope = withFile f ReadMode $ \h -> do
-	fileEncoding h
-	s <- hGetLine h
-	if s == shebang
-		then return f
-		else nope
+checkAlreadyShimmed f nope = ifM (doesFileExist f)
+	( withFile f ReadMode $ \h -> do
+		fileEncoding h
+		s <- hGetLine h
+		if s == shebang
+			then return f
+			else nope
+	, nope
+	)
 
 -- Called when the shimmed propellor is running, so that commands it runs
 -- don't see it.