catch exception when making fifo fails

1 files changed, 3 insertions, 2 deletions

diff --git a/Init.hs b/Init.hs
index 678bd7301..62b12283f 100644
--- a/Init.hs
+++ b/Init.hs
@@ -154,8 +154,9 @@ probeFifoSupport = do
 	liftIO $ do
 		createDirectoryIfMissing True tmp
 		nukeFile f
-		createNamedPipe f ownerReadMode
-		ms <- tryIO $ getFileStatus f
+		ms <- tryIO $ do
+			createNamedPipe f ownerReadMode
+			getFileStatus f
 		nukeFile f
 		return $ either (const False) isNamedPipe ms