Windows: Fix S3 special remote; need to call withSocketsDo to support Windows. Thanks, Trent.

debian/changelog

@@ -31,6 +31,8 @@ git-annex (5.20150114) UNRELEASED; urgency=medium
   * Remove support for building without cryptohash.
   * Added MD5 and MD5E backends.
   * assistant: Fix local pairing when ssh pubkey comment contains spaces.
+  * Windows: Fix S3 special remote; need to call withSocketsDo to support
+    Windows. Thanks, Trent.
 
  -- Joey Hess <id@joeyh.name>  Tue, 13 Jan 2015 17:03:39 -0400
 

doc/bugs/S3_Access_fails_on_windows.mdwn

@@ -38,3 +38,5 @@ index cdaa754..0eed9db 100644
         run ps =<< getProgName
    where
 """]]
+
+> Thanks very much for the patch! [[done]] --[[Joey]]

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