diff options
Diffstat (limited to 'Annex/Init.hs')
| -rw-r--r-- | Annex/Init.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Annex/Init.hs b/Annex/Init.hs index 3f27a1172..50f4d8522 100644 --- a/Annex/Init.hs +++ b/Annex/Init.hs @@ -162,13 +162,17 @@ probeFifoSupport = do #else tmp <- fromRepo gitAnnexTmpMiscDir let f = tmp </> "gaprobe" + let f2 = tmp </> "gaprobe2" createAnnexDirectory tmp liftIO $ do nukeFile f + nukeFile f2 ms <- tryIO $ do createNamedPipe f ownerReadMode + createLink f f2 getFileStatus f nukeFile f + nukeFile f2 return $ either (const False) isNamedPipe ms #endif |