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

check if wormhole is installed

Browse source
This commit is contained in:
Joey Hess 2016-12-18 17:01:15 -04:00
parent ccde0932a5
commit 7f2e7fa271
No known key found for this signature in database
GPG key ID: C910D9222512E3C7
2 changed files with 26 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Utility/MagicWormhole.hs
View file

@ -20,6 +20,7 @@ module Utility.MagicWormhole (
WormHoleParams,
sendFile,
receiveFile,
isInstalled,
) where
import Utility.Process
@ -28,6 +29,7 @@ import Utility.Monad
import Utility.Misc
import Utility.FileSystemEncoding
import Utility.Env
import Utility.Path
import System.IO
import System.Exit
@ -153,3 +155,6 @@ runWormHoleProcess p consumer =
ExitSuccess -> True
ExitFailure _ -> False
go h@(hin, hout, _) = consumer hin hout <&&> cleanup h
isInstalled :: IO Bool
isInstalled = inPath "wormhole"