diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-01-04 12:52:22 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-01-04 13:07:57 -0400 |
| commit | 7c2277aa0ccbd1ec35e00bbdfa28cf02c352c7a1 (patch) | |
| tree | 5023fa48f2287cef2c1181628dbed5b305880e13 /Assistant/XMPP | |
| parent | 75a88861e4cdc04e4d9f4e926e94632a21b2bad3 (diff) | |
Fix build with process 1.2.1.0.
Diffstat (limited to 'Assistant/XMPP')
| -rw-r--r-- | Assistant/XMPP/Git.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/Assistant/XMPP/Git.hs b/Assistant/XMPP/Git.hs index 868fe6609..120d4c53a 100644 --- a/Assistant/XMPP/Git.hs +++ b/Assistant/XMPP/Git.hs @@ -38,6 +38,7 @@ import Utility.Env import Network.Protocol.XMPP import qualified Data.Text as T import System.Posix.Types +import qualified System.Posix.IO import Control.Concurrent import System.Timeout import qualified Data.ByteString as B @@ -104,9 +105,9 @@ xmppPush cid gitpush = do u <- liftAnnex getUUID sendNetMessage $ Pushing cid (StartingPush u) - (Fd inf, writepush) <- liftIO createPipe - (readpush, Fd outf) <- liftIO createPipe - (Fd controlf, writecontrol) <- liftIO createPipe + (Fd inf, writepush) <- liftIO System.Posix.IO.createPipe + (readpush, Fd outf) <- liftIO System.Posix.IO.createPipe + (Fd controlf, writecontrol) <- liftIO System.Posix.IO.createPipe tmpdir <- gettmpdir installwrapper tmpdir |