instance FromJSON SearchReposResult where

parseJSON (Object o) =

SearchReposResult <$> o .: "total_count"

<*> o .:< "items"

parseJSON _ = fail "Could not build a SearchReposResult"

data SearchReposResult = SearchReposResult {

searchReposTotalCount :: Int

,searchReposRepos :: [ Repo ]

} deriving (Show, Data, Typeable, Eq, Ord)

<> [("Accept", "application/vnd.github.preview")]

-- | The Github Search API, as described at

module Github.Search(

searchRepos'

,searchRepos

,module Github.Data

,GithubAuth(..)

) where

import Github.Data

import Github.Private

-- | Perform a repository search.

searchRepos' :: Maybe GithubAuth -> String -> IO (Either Error SearchReposResult)

searchRepos' auth queryString = githubGetWithQueryString' auth ["search/repositories"] queryString

-- | Perform a repository search.

searchRepos :: String -> IO (Either Error SearchReposResult)

searchRepos = searchRepos' Nothing

,samples/Search/SearchRepos.hs

{-# LANGUAGE OverloadedStrings #-}

module SearchRepos where

import qualified Github.Search as Github

import qualified Github.Data as Github

import Control.Monad (forM,forM_)

import Data.Maybe (fromMaybe)

import Data.List (intercalate)

import System.Environment (getArgs)

import Text.Printf (printf)

import Data.Time.Clock (getCurrentTime, UTCTime(..))

import Data.Time.LocalTime (utc,utcToLocalTime,localDay,localTimeOfDay,TimeOfDay(..))

import Data.Time.Calendar (toGregorian)

main = do

args <- getArgs

date <- case args of

(x:_) -> return x

otherwise -> today

let query = "q=language%3Ahaskell created%3A>" ++ date ++ "&per_page=100"

let auth = Nothing

result <- Github.searchRepos' auth query

case result of

Left e -> putStrLn $ "Error: " ++ show e

Right r -> do forM_ (Github.searchReposRepos r) (\r -> do

putStrLn $ formatRepo r

putStrLn ""

)

putStrLn $ "Count: " ++ show n ++ " Haskell repos created since " ++ date

where n = Github.searchReposTotalCount r

-- | return today (in UTC) formatted as YYYY-MM-DD

today :: IO String

today = do

now <- getCurrentTime

let day = localDay $ utcToLocalTime utc now

(y,m,d) = toGregorian day

in return $ printf "%d-%02d-%02d" y m d

formatRepo :: Github.Repo -> String

formatRepo r =

let fields = [ ("Name", Github.repoName)

,("URL", Github.repoHtmlUrl)

,("Description", orEmpty . Github.repoDescription)

,("Created-At", formatDate . Github.repoCreatedAt)

,("Pushed-At", formatMaybeDate . Github.repoPushedAt)

]

in intercalate "\n" $ map fmt fields

where fmt (s,f) = fill 12 (s ++ ":") ++ " " ++ f r

orEmpty = fromMaybe ""

fill n s = s ++ replicate n' ' '

where n' = max 0 (n - length s)

formatMaybeDate = maybe "???" formatDate

formatDate = show . Github.fromGithubDate