Github.Organizations.publicOrganizationsFor - all the public organizations for a user.

mike-burns · mike-burns · commit 3d3906b1b2d0 · 2011-11-13T18:39:04.000-05:00
diff --git a/Github/Data.hs b/Github/Data.hs
@@ -268,6 +268,14 @@ instance FromJSON EventType where
   parseJSON (String "unsubscribed") = pure Unsubscribed
   parseJSON _ = fail "Could not build an EventType"
 
+instance FromJSON SimpleOrganization where
+  parseJSON (Object o) =
+    SimpleOrganization <$> o .: "url"
+                       <*> o .: "avatar_url"
+                       <*> o .: "id"
+                       <*> o .: "login"
+  parseJSON _ = fail "Could not build a SimpleOrganization"
+
 -- | A better version of Aeson's .:?, using `mzero' instead of `Nothing'
 (.:<) :: (FromJSON a) => Object -> T.Text -> Parser [a]
 obj .:< key = case Map.lookup key obj of
diff --git a/Github/Data/Definitions.hs b/Github/Data/Definitions.hs
@@ -242,3 +242,10 @@ data Event = Event {
   ,eventId :: Int
   ,eventIssue :: Maybe Issue
 } deriving (Show, Data, Typeable, Eq, Ord)
+
+data SimpleOrganization = SimpleOrganization {
+   simpleOrganizationUrl :: String
+  ,simpleOrganizationAvatarUrl :: String
+  ,simpleOrganizationId :: Int
+  ,simpleOrganizationLogin :: String
+} deriving (Show, Data, Typeable, Eq, Ord)
diff --git a/Github/Organizations.hs b/Github/Organizations.hs
@@ -0,0 +1,10 @@
+module Github.Organizations (
+ publicOrganizationsFor
+,module Github.Data
+) where
+
+import Github.Data
+import Github.Private
+
+publicOrganizationsFor :: String -> IO (Either Error [SimpleOrganization])
+publicOrganizationsFor userName = githubGet ["users", userName, "orgs"]
diff --git a/samples/Organizations/ShowPublicOrganizations.hs b/samples/Organizations/ShowPublicOrganizations.hs
@@ -0,0 +1,13 @@
+module ShowPublicOrganizations where
+
+import qualified Github.Organizations as Github
+import Data.List (intercalate)
+
+main = do
+  possibleOrganizations <- Github.publicOrganizationsFor "mike-burns"
+  case possibleOrganizations of
+       (Left error)  -> putStrLn $ "Error: " ++ (show error)
+       (Right organizations) ->
+         putStrLn $ intercalate "\n" $ map formatOrganization organizations
+
+formatOrganization = Github.simpleOrganizationLogin
