github-backup 1.20141031 → 1.20141110

raw patch · 4 files changed

+21/−10 lines, 4 files

Files

• Utility/UserInfo.hs +12/−8
• debian/changelog +7/−0
• debian/control +1/−1
• github-backup.cabal +1/−1

@@ -40,16 +40,20 @@ 	env = ["USERNAME", "USER", "LOGNAME"] #endif -myUserGecos :: IO String-#ifdef __ANDROID__-myUserGecos = return "" -- userGecos crashes on Android+myUserGecos :: IO (Maybe String)+-- userGecos crashes on Android and is not available on Windows.+#if defined(__ANDROID__) || defined(mingw32_HOST_OS)+myUserGecos = return Nothing #else-myUserGecos = myVal [] userGecos+myUserGecos = Just <$> myVal [] userGecos #endif  myVal :: [String] -> (UserEntry -> String) -> IO String-myVal envvars extract = maybe (extract <$> getpwent) return =<< check envvars+myVal envvars extract = go envvars   where-	check [] = return Nothing-	check (v:vs) = maybe (check vs) (return . Just) =<< getEnv v-	getpwent = getUserEntryForID =<< getEffectiveUserID+#ifndef mingw32_HOST_OS+	go [] = extract <$> (getUserEntryForID =<< getEffectiveUserID)+#else+	go [] = error $ "environment not set: " ++ show envvars+#endif+	go (v:vs) = maybe (go vs) return =<< getEnv v

@@ -1,3 +1,10 @@+github-backup (1.20141110) unstable; urgency=medium++  * Orphaned the Debian package.+    (I continue to maintain github-backup upstream.)++ -- Joey Hess <joeyh@debian.org>  Mon, 10 Nov 2014 12:19:59 -0400+ github-backup (1.20141031) unstable; urgency=medium    * Adjust cabal file for network-uri split.

@@ -14,7 +14,7 @@ 	libghc-transformers-dev, 	libghc-unix-compat-dev, 	libghc-optparse-applicative-dev-Maintainer: Joey Hess <joeyh@debian.org>+Maintainer: Debian QA Group <packages@qa.debian.org> Standards-Version: 3.9.5 Vcs-Git: git://github.com/joeyh/github-backup.git Homepage: http://github.com/joeyh/github-backup

@@ -1,5 +1,5 @@ Name: github-backup-Version: 1.20141031+Version: 1.20141110 Cabal-Version: >= 1.8 License: GPL Maintainer: Joey Hess <joey@kitenet.net>