mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

catch exception when making fifo fails

Browse source
This commit is contained in:
Joey Hess 2013-04-04 14:25:20 -04:00
parent bd5d664a0c
commit c20143ee32
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Init.hs
View file

@ -154,8 +154,9 @@ probeFifoSupport = do
liftIO $ do liftIO $ do
createDirectoryIfMissing True tmp createDirectoryIfMissing True tmp
nukeFile f nukeFile f
ms <- tryIO $ do
createNamedPipe f ownerReadMode createNamedPipe f ownerReadMode
ms <- tryIO $ getFileStatus f getFileStatus f
nukeFile f nukeFile f
return $ either (const False) isNamedPipe ms return $ either (const False) isNamedPipe ms