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

5
Init.hs
View file

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