Update the example usage to be more accurate.

mike-burns · mike-burns · commit f04996725b0d · 2011-10-30T18:37:44.000-04:00
diff --git a/README.md b/README.md
@@ -21,20 +21,20 @@ Example Usage
     import qualified Github.Repos.Commits as Github
 
     main = do
-      possibleCommits <- Github.commitsFor "thoughtbot" "paperclip"
+      possibleCommits &larr; Github.commitsFor "thoughtbot" "paperclip"
       case possibleCommits of
-        (Left error)    -> putStrLn $ "Error: " ++ (show error)
-        (Right commits) -> putStrLn $ show $ map formatCommit commits
-
-    formatCommit :: Commit -> String
+        (Left error)    &rarr; putStrLn $ "Error: " ++ (show error)
+        (Right commits) &rarr; putStrLn $ intercalate "&lambda;n&lambda;n" $ map formatCommit commits
+    
+    formatCommit :: Github.Commit &rarr; String
     formatCommit commit =
       "commit " ++ (Github.commitSha commit) ++
-        "\nAuthor: " ++ (formatAuthor author) ++
-        "\nDate:   " ++ (show $ Github.authorDate author) ++
-        "\n\n\t" ++ (Github.commitMessage commit)
+        "&lambda;nAuthor: " ++ (formatAuthor author) ++
+        "&lambda;nDate:   " ++ (show $ Github.fromGithubDate $ Github.authorDate author) ++
+        "&lambda;n&lambda;n&lambda;t" ++ (Github.commitMessage commit)
       where author = Github.commitAuthor commit
-
-    formatAuthor :: Author -> String
+    
+    formatAuthor :: Github.Author &rarr; String
     formatAuthor author =
       (Github.authorName author) ++ " <" ++ (Github.authorEmail author) ++ ">"
 
