diff options
author | Joey Hess <joey@kitenet.net> | 2013-02-13 14:30:04 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2013-02-13 14:30:04 -0400 |
commit | 86a2e79338c13108e100859a942883690ad286f3 (patch) | |
tree | 375323fc282638ae62b8b8a0b8834b6dbdf92d18 /Assistant/XMPP | |
parent | 9aadec552b0590fbed10ed9e1d74540bbaf5fb7f (diff) |
deal with Android's nonstandard shell location
This is so gratutious and pointless. It's a shame that everything we
learned about Unix portability and the importance of standards has been
thrown out the window by these guys.
Diffstat (limited to 'Assistant/XMPP')
-rw-r--r-- | Assistant/XMPP/Git.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Assistant/XMPP/Git.hs b/Assistant/XMPP/Git.hs index d3c8343c2..8dba309a8 100644 --- a/Assistant/XMPP/Git.hs +++ b/Assistant/XMPP/Git.hs @@ -25,6 +25,7 @@ import qualified Git.Branch import Locations.UserConfig import qualified Types.Remote as Remote import Utility.FileMode +import Utility.Shell import Network.Protocol.XMPP import qualified Data.Text as T @@ -141,7 +142,7 @@ xmppPush cid gitpush = runPush SendPack cid handleDeferred $ do let wrapper = tmpdir </> "git-remote-xmpp" program <- readProgramFile writeFile wrapper $ unlines - [ "#!/bin/sh" + [ shebang , "exec " ++ program ++ " xmppgit" ] modifyFileMode wrapper $ addModes executeModes |