diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-02-05 14:00:30 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-02-05 14:00:30 -0400 |
| commit | a9db75e4808134e4ca6f5b8025c4001a3c6fb3bd (patch) | |
| tree | e975f408cd6163c5d29bb33ea7ee8f0c8ec19e0e /git-annex.hs | |
| parent | bfaac2dafb731ce48c83ba93125f5ba6fcb285f6 (diff) | |
Windows: Fix S3 special remote; need to call withSocketsDo to support Windows. Thanks, Trent.
Diffstat (limited to 'git-annex.hs')
| -rw-r--r-- | git-annex.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/git-annex.hs b/git-annex.hs index cdaa75434..17ce807af 100644 --- a/git-annex.hs +++ b/git-annex.hs @@ -9,6 +9,7 @@ import System.Environment (getArgs, getProgName) import System.FilePath +import Network.Socket (withSocketsDo) import qualified CmdLine.GitAnnex import qualified CmdLine.GitAnnexShell @@ -22,7 +23,7 @@ import Utility.Env #endif main :: IO () -main = do +main = withSocketsDo $ do ps <- getArgs run ps =<< getProgName where |