add RateLimit sample usage

Author: santolucito

samples/RateLimit.hs

@@ -0,0 +1,8 @@
+module RateLimit where
+
+import qualified Github.RateLimit as Github
+
+main = do
+  x <- Github.rateLimit
+  print x
+