git-annex now builds on Windows (doesn't work)

1 files changed, 4 insertions, 0 deletions

diff --git a/Creds.hs b/Creds.hs
index 44954d7d6..466fc4a21 100755
--- a/Creds.hs
+++ b/Creds.hs
@@ -109,12 +109,16 @@ getEnvCredPair storage = liftM2 (,)
 
 {- Stores a CredPair in the environment. -}
 setEnvCredPair :: CredPair -> CredPairStorage -> IO ()
+#ifndef __WINDOWS__
 setEnvCredPair (l, p) storage = do
 	set uenv l
 	set penv p
   where
 	(uenv, penv) = credPairEnvironment storage
 	set var val = setEnv var val True
+#else
+setEnvCredPair _ _ = error "setEnvCredPair TODO"
+#endif
 
 writeCacheCredPair :: CredPair -> CredPairStorage -> Annex ()
 writeCacheCredPair credpair storage =