From 7c2277aa0ccbd1ec35e00bbdfa28cf02c352c7a1 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 4 Jan 2015 12:52:22 -0400 Subject: Fix build with process 1.2.1.0. --- Assistant/XMPP/Git.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'Assistant/XMPP') 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 -- cgit v1.2.3