Fix a "bug" in edit repo

(either my previous test data was bogus, or the behavior changed, see github/developer.github.com#53 ..)
iand675 · Mar 7, 2012 · ce353b3 · ce353b3
1 parent f6d3288
commit ce353b3
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/Github/Repos.hs b/Github/Repos.hs
@@ -195,7 +195,10 @@ edit :: BasicAuth
      -> String      -- ^ repository name
      -> Edit
      -> IO (Either Error Repo)
-edit auth user repo body = githubPatch auth ["repos", user, repo] body
+edit auth user repo body = githubPatch auth ["repos", user, repo] b
+  where
+    -- if no name is given, use curent name
+    b = body {editName = editName body <|> Just repo}
 
 deleteRepo :: BasicAuth
            -> String      -- ^ owner