github-backup 1.20120313 → 1.20120314

raw patch · 3 files changed

+7/−5 lines, 3 files

Files

• Makefile +1/−0
• github-backup.cabal +1/−1
• github-backup.hs +5/−4

@@ -1,3 +1,4 @@+PREFIX=/usr BASEFLAGS=-Wall GHCFLAGS=-O2 $(BASEFLAGS) bins=github-backup

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

@@ -21,6 +21,7 @@ import qualified Github.Repos.Forks as Github import qualified Github.PullRequests as Github import qualified Github.Repos.Watching as Github+import qualified Github.Data.Definitions as Github () import qualified Github.Issues as Github import qualified Github.Issues.Comments import qualified Github.Issues.Milestones@@ -88,13 +89,13 @@ inRepo a = liftIO . a =<< getState gitRepo  failedRequest :: Request -> Github.Error-> Backup ()-failedRequest req e = unless (ignorable e) $ do+failedRequest req e = unless ignorable $ do 	set <- getState failedRequests 	changeState $ \s -> s { failedRequests = S.insert req set } 	where-		ignorable (Github.JsonError m) =-			"disabled for this repo" `isInfixOf` m-		ignorable _ = False+		-- "410 Gone" is used for repos that have issues etc+		-- disabled.+		ignorable = "410 Gone" `isInfixOf` show e  runRequest :: Request -> Backup () runRequest req = do