Some samples no longer worked due to references to the removed githubUserLogin function.

mike-burns · mike-burns · commit 2caf0f478675 · 2012-02-05T13:11:39.000-05:00
diff --git a/samples/Gists/Comments/ShowComment.hs b/samples/Gists/Comments/ShowComment.hs
@@ -9,7 +9,7 @@ main = do
     (Right comment) -> putStrLn $ formatComment comment
 
 formatComment comment =
-  (Github.githubUserLogin $ Github.gistCommentUser comment) ++ "\n" ++
+  (Github.githubOwnerLogin $ Github.gistCommentUser comment) ++ "\n" ++
     (formatGithubDate $ Github.gistCommentUpdatedAt comment) ++ "\n\n" ++
     (Github.gistCommentBody comment)
 
diff --git a/samples/Gists/Comments/ShowComments.hs b/samples/Gists/Comments/ShowComments.hs
@@ -10,7 +10,7 @@ main = do
     (Right comments) -> putStrLn $ intercalate "\n\n" $ map formatComment comments
 
 formatComment comment =
-  (Github.githubUserLogin $ Github.gistCommentUser comment) ++ "\n" ++
+  (Github.githubOwnerLogin $ Github.gistCommentUser comment) ++ "\n" ++
     (formatGithubDate $ Github.gistCommentUpdatedAt comment) ++ "\n\n" ++
     (Github.gistCommentBody comment)
 
diff --git a/samples/Issues/Comments/ShowComment.hs b/samples/Issues/Comments/ShowComment.hs
@@ -9,7 +9,7 @@ main = do
                     possibleComment
 
 formatComment comment =
-  (Github.githubUserLogin $ Github.issueCommentUser comment) ++
+  (Github.githubOwnerLogin $ Github.issueCommentUser comment) ++
     " commented " ++
     (show $ Github.fromGithubDate $ Github.issueCommentUpdatedAt comment) ++
     "\n" ++ (Github.issueCommentBody comment)
diff --git a/samples/Issues/Comments/ShowComments.hs b/samples/Issues/Comments/ShowComments.hs
@@ -11,7 +11,7 @@ main = do
          putStrLn $ intercalate "\n\n" $ map formatComment issues
 
 formatComment comment =
-  (Github.githubUserLogin $ Github.issueCommentUser comment) ++
+  (Github.githubOwnerLogin $ Github.issueCommentUser comment) ++
     " commented " ++
     (show $ Github.fromGithubDate $ Github.issueCommentUpdatedAt comment) ++
     "\n" ++ (Github.issueCommentBody comment)
diff --git a/samples/Issues/Events/ShowEvent.hs b/samples/Issues/Events/ShowEvent.hs
@@ -33,6 +33,6 @@ formatEvent event = formatEvent' event (Github.eventType event)
   formatEvent' event Github.Assigned =
     "Issue assigned to " ++ loginName event ++ " on " ++ createdAt event
 
-loginName = Github.githubUserLogin . Github.eventActor
+loginName = Github.githubOwnerLogin . Github.eventActor
 createdAt = show . Github.fromGithubDate . Github.eventCreatedAt
 withCommitId event f = maybe "" f (Github.eventCommitId event)
diff --git a/samples/Issues/Events/ShowIssueEvents.hs b/samples/Issues/Events/ShowIssueEvents.hs
@@ -33,6 +33,6 @@ formatEvent event = formatEvent' event (Github.eventType event)
   formatEvent' event Github.Assigned =
     "Issue assigned to " ++ loginName event ++ " on " ++ createdAt event
 
-loginName = Github.githubUserLogin . Github.eventActor
+loginName = Github.githubOwnerLogin . Github.eventActor
 createdAt = show . Github.fromGithubDate . Github.eventCreatedAt
 withCommitId event f = maybe "" f (Github.eventCommitId event)
diff --git a/samples/Issues/Events/ShowRepoEvents.hs b/samples/Issues/Events/ShowRepoEvents.hs
@@ -35,7 +35,7 @@ formatEvent event =
   formatEvent' event Github.Assigned =
     "assigned to " ++ loginName event ++ " on " ++ createdAt event
 
-loginName = Github.githubUserLogin . Github.eventActor
+loginName = Github.githubOwnerLogin . Github.eventActor
 createdAt = show . Github.fromGithubDate . Github.eventCreatedAt
 withCommitId event f = maybe "" f (Github.eventCommitId event)
 issueNumber = show . Github.issueNumber . fromJust . Github.eventIssue
diff --git a/samples/Issues/Milestones/ShowMilestone.hs b/samples/Issues/Milestones/ShowMilestone.hs
@@ -19,6 +19,6 @@ formatMilestone milestone =
 formatDueOn Nothing = ""
 formatDueOn (Just milestoneDate) = ", is due on " ++ dueOn milestoneDate
 
-loginName = Github.githubUserLogin . Github.milestoneCreator
+loginName = Github.githubOwnerLogin . Github.milestoneCreator
 createdAt = show . Github.fromGithubDate . Github.milestoneCreatedAt
 dueOn = show . Github.fromGithubDate
diff --git a/samples/Issues/Milestones/ShowMilestones.hs b/samples/Issues/Milestones/ShowMilestones.hs
@@ -19,6 +19,6 @@ formatMilestone milestone =
 formatDueOn Nothing = ""
 formatDueOn (Just milestoneDate) = ", is due on " ++ dueOn milestoneDate
 
-loginName = Github.githubUserLogin . Github.milestoneCreator
+loginName = Github.githubOwnerLogin . Github.milestoneCreator
 createdAt = show . Github.fromGithubDate . Github.milestoneCreatedAt
 dueOn = show . Github.fromGithubDate
diff --git a/samples/Issues/ShowIssue.hs b/samples/Issues/ShowIssue.hs
@@ -9,7 +9,7 @@ main = do
                     possibleIssue
 
 formatIssue issue =
-  (Github.githubUserLogin $ Github.issueUser issue) ++
+  (Github.githubOwnerLogin $ Github.issueUser issue) ++
     " opened this issue " ++
     (show $ Github.fromGithubDate $ Github.issueCreatedAt issue) ++ "\n" ++
     (Github.issueState issue) ++ " with " ++
diff --git a/samples/Issues/ShowRepoIssues.hs b/samples/Issues/ShowRepoIssues.hs
@@ -12,7 +12,7 @@ main = do
          putStrLn $ intercalate "\n\n" $ map formatIssue issues
 
 formatIssue issue =
-  (Github.githubUserLogin $ Github.issueUser issue) ++
+  (Github.githubOwnerLogin $ Github.issueUser issue) ++
     " opened this issue " ++
     (show $ Github.fromGithubDate $ Github.issueCreatedAt issue) ++ "\n" ++
     (Github.issueState issue) ++ " with " ++
diff --git a/samples/Organizations/Members/ShowMembers.hs b/samples/Organizations/Members/ShowMembers.hs
@@ -8,4 +8,4 @@ main = do
   case possibleMembers of
        (Left error)  -> putStrLn $ "Error: " ++ (show error)
        (Right members) ->
-         putStrLn $ intercalate "\n" $ map Github.githubUserLogin members
+         putStrLn $ intercalate "\n" $ map Github.githubOwnerLogin members
diff --git a/samples/Pulls/ListPulls.hs b/samples/Pulls/ListPulls.hs
@@ -13,7 +13,7 @@ main = do
 formatPullRequest pullRequest =
   (Github.pullRequestTitle pullRequest) ++ "\n" ++
     (take 80 $ Github.pullRequestBody pullRequest) ++ "\n" ++
-    (Github.githubUserLogin $ Github.pullRequestUser pullRequest) ++
+    (Github.githubOwnerLogin $ Github.pullRequestUser pullRequest) ++
     " submitted to thoughtbot/paperclip " ++
     (formatGithubDate $ Github.pullRequestCreatedAt pullRequest) ++
     " updated " ++
diff --git a/samples/Pulls/ShowPull.hs b/samples/Pulls/ShowPull.hs
@@ -10,7 +10,7 @@ main = do
        (Right pullRequest) -> putStrLn $ formatPullRequest pullRequest
 
 formatPullRequest p =
-  (Github.githubUserLogin $ Github.detailedPullRequestUser p) ++
+  (Github.githubOwnerLogin $ Github.detailedPullRequestUser p) ++
     " opened this pull request " ++
     (formatGithubDate $ Github.detailedPullRequestCreatedAt p) ++ "\n" ++
     (Github.detailedPullRequestTitle p) ++ "\n" ++
diff --git a/samples/Repos/Forks/ListForks.hs b/samples/Repos/Forks/ListForks.hs
@@ -10,6 +10,6 @@ main = do
                     possibleForks
 
 formatFork fork =
-  (Github.githubUserLogin $ Github.repoOwner fork) ++ "\t" ++
+  (Github.githubOwnerLogin $ Github.repoOwner fork) ++ "\t" ++
   (show $ Github.fromGithubDate $ Github.repoPushedAt fork) ++ "\n" ++
   (Github.repoCloneUrl fork)
diff --git a/samples/Users/Followers/ListFollowers.hs b/samples/Users/Followers/ListFollowers.hs
@@ -9,4 +9,4 @@ main = do
                     (intercalate "\n" . map formatUser)
                     possibleUsers
 
-formatUser = Github.githubUserLogin
+formatUser = Github.githubOwnerLogin
diff --git a/samples/Users/Followers/ListFollowing.hs b/samples/Users/Followers/ListFollowing.hs
@@ -9,5 +9,5 @@ main = do
                     (intercalate "\n" . map formatUser)
                     possibleUsers
 
-formatUser = Github.githubUserLogin
+formatUser = Github.githubOwnerLogin
 
