diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-01-14 16:42:10 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-01-14 16:42:10 -0400 |
| commit | 619e567cc8b59b549f70c95357455ac95fec942d (patch) | |
| tree | 3f17722168b5bc9844b2c86dde80dab854ded548 /Assistant | |
| parent | b52ce804b084b9c182756bb6df944f0604b26f5b (diff) | |
avoid needing a build-dep on hxt for Data.AssocList
Diffstat (limited to 'Assistant')
| -rw-r--r-- | Assistant/XMPP/Git.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Assistant/XMPP/Git.hs b/Assistant/XMPP/Git.hs index 54cc6596f..22c3a125e 100644 --- a/Assistant/XMPP/Git.hs +++ b/Assistant/XMPP/Git.hs @@ -43,7 +43,6 @@ import Control.Concurrent import System.Timeout import qualified Data.ByteString as B import qualified Data.Map as M -import qualified Data.AssocList as A {- Largest chunk of data to send in a single XMPP message. -} chunkSize :: Int @@ -115,7 +114,7 @@ xmppPush cid gitpush = do env <- liftIO getEnvironment path <- liftIO getSearchPath - let myenv = A.addEntries + let myenv = addEntries [ ("PATH", intercalate [searchPathSeparator] $ tmpdir:path) , (relayIn, show inf) , (relayOut, show outf) |