#define UNSAFE 1
module GitHub.Data.Repos where
import Prelude ()
import Prelude.Compat
import GitHub.Data.Definitions
import GitHub.Data.Id (Id)
import GitHub.Data.Name (Name)
import Control.DeepSeq (NFData (..))
import Control.DeepSeq.Generics (genericRnf)
import Data.Aeson.Compat (FromJSON (..), ToJSON (..), object, withObject,
withText, (.:), (.:?), (.=))
import Data.Binary (Binary)
import Data.Data (Data, Typeable)
import Data.Hashable (Hashable (..))
import Data.String (IsString (..))
import Data.Text (Text)
import Data.Time (UTCTime)
import GHC.Generics (Generic)
import qualified Data.HashMap.Strict as HM
#if UNSAFE
import Unsafe.Coerce (unsafeCoerce)
#endif
data Repo = Repo {
repoSshUrl :: !(Maybe Text)
,repoDescription :: !(Maybe Text)
,repoCreatedAt :: !(Maybe UTCTime)
,repoHtmlUrl :: !Text
,repoSvnUrl :: !(Maybe Text)
,repoForks :: !(Maybe Int)
,repoHomepage :: !(Maybe Text)
,repoFork :: !(Maybe Bool)
,repoGitUrl :: !(Maybe Text)
,repoPrivate :: !Bool
,repoCloneUrl :: !(Maybe Text)
,repoSize :: !(Maybe Int)
,repoUpdatedAt :: !(Maybe UTCTime)
,repoWatchers :: !(Maybe Int)
,repoOwner :: !SimpleOwner
,repoName :: !(Name Repo)
,repoLanguage :: !(Maybe Language)
,repoMasterBranch :: !(Maybe Text)
,repoPushedAt :: !(Maybe UTCTime)
,repoId :: !(Id Repo)
,repoUrl :: !Text
,repoOpenIssues :: !(Maybe Int)
,repoHasWiki :: !(Maybe Bool)
,repoHasIssues :: !(Maybe Bool)
,repoHasDownloads :: !(Maybe Bool)
,repoParent :: !(Maybe RepoRef)
,repoSource :: !(Maybe RepoRef)
,repoHooksUrl :: !Text
,repoStargazersCount :: !Int
} deriving (Show, Data, Typeable, Eq, Ord, Generic)
instance NFData Repo where rnf = genericRnf
instance Binary Repo
data RepoRef = RepoRef
{ repoRefOwner :: !SimpleOwner
, repoRefRepo :: !(Name Repo)
}
deriving (Show, Data, Typeable, Eq, Ord, Generic)
instance NFData RepoRef where rnf = genericRnf
instance Binary RepoRef
data NewRepo = NewRepo {
newRepoName :: !(Name Repo)
, newRepoDescription :: !(Maybe Text)
, newRepoHomepage :: !(Maybe Text)
, newRepoPrivate :: !(Maybe Bool)
, newRepoHasIssues :: !(Maybe Bool)
, newRepoHasWiki :: !(Maybe Bool)
, newRepoAutoInit :: !(Maybe Bool)
} deriving (Eq, Ord, Show, Data, Typeable, Generic)
instance NFData NewRepo where rnf = genericRnf
instance Binary NewRepo
newRepo :: Name Repo -> NewRepo
newRepo name = NewRepo name Nothing Nothing Nothing Nothing Nothing Nothing
data EditRepo = EditRepo {
editName :: !(Maybe (Name Repo))
, editDescription :: !(Maybe Text)
, editHomepage :: !(Maybe Text)
, editPublic :: !(Maybe Bool)
, editHasIssues :: !(Maybe Bool)
, editHasWiki :: !(Maybe Bool)
, editHasDownloads :: !(Maybe Bool)
} deriving (Eq, Ord, Show, Data, Typeable, Generic)
instance NFData EditRepo where rnf = genericRnf
instance Binary EditRepo
data RepoPublicity
= RepoPublicityAll
| RepoPublicityOwner
| RepoPublicityPublic
| RepoPublicityPrivate
| RepoPublicityMember
deriving (Show, Eq, Ord, Enum, Bounded, Typeable, Data, Generic)
type Languages = HM.HashMap Language Int
newtype Language = Language Text
deriving (Show, Data, Typeable, Eq, Ord, Generic)
getLanguage :: Language -> Text
getLanguage (Language l) = l
instance NFData Language where rnf = genericRnf
instance Binary Language
instance Hashable Language where
hashWithSalt salt (Language l) = hashWithSalt salt l
instance IsString Language where
fromString = Language . fromString
data Contributor
= KnownContributor !Int !Text !(Name User) !Text !(Id User) !Text
| AnonymousContributor !Int !Text
deriving (Show, Data, Typeable, Eq, Ord, Generic)
instance NFData Contributor where rnf = genericRnf
instance Binary Contributor
contributorToSimpleUser :: Contributor -> Maybe SimpleUser
contributorToSimpleUser (AnonymousContributor _ _) = Nothing
contributorToSimpleUser (KnownContributor _contributions avatarUrl name url uid _gravatarid) =
Just $ SimpleUser uid name avatarUrl url OwnerUser
instance FromJSON Repo where
parseJSON = withObject "Repo" $ \o ->
Repo <$> o .:? "ssh_url"
<*> o .: "description"
<*> o .:? "created_at"
<*> o .: "html_url"
<*> o .:? "svn_url"
<*> o .:? "forks"
<*> o .:? "homepage"
<*> o .: "fork"
<*> o .:? "git_url"
<*> o .: "private"
<*> o .:? "clone_url"
<*> o .:? "size"
<*> o .:? "updated_at"
<*> o .:? "watchers"
<*> o .: "owner"
<*> o .: "name"
<*> o .:? "language"
<*> o .:? "master_branch"
<*> o .:? "pushed_at"
<*> o .: "id"
<*> o .: "url"
<*> o .:? "open_issues"
<*> o .:? "has_wiki"
<*> o .:? "has_issues"
<*> o .:? "has_downloads"
<*> o .:? "parent"
<*> o .:? "source"
<*> o .: "hooks_url"
<*> o .: "stargazers_count"
instance ToJSON NewRepo where
toJSON (NewRepo { newRepoName = name
, newRepoDescription = description
, newRepoHomepage = homepage
, newRepoPrivate = private
, newRepoHasIssues = hasIssues
, newRepoHasWiki = hasWiki
, newRepoAutoInit = autoInit
}) = object
[ "name" .= name
, "description" .= description
, "homepage" .= homepage
, "private" .= private
, "has_issues" .= hasIssues
, "has_wiki" .= hasWiki
, "auto_init" .= autoInit
]
instance ToJSON EditRepo where
toJSON (EditRepo { editName = name
, editDescription = description
, editHomepage = homepage
, editPublic = public
, editHasIssues = hasIssues
, editHasWiki = hasWiki
, editHasDownloads = hasDownloads
}) = object
[ "name" .= name
, "description" .= description
, "homepage" .= homepage
, "public" .= public
, "has_issues" .= hasIssues
, "has_wiki" .= hasWiki
, "has_downloads" .= hasDownloads
]
instance FromJSON RepoRef where
parseJSON = withObject "RepoRef" $ \o ->
RepoRef <$> o .: "owner"
<*> o .: "name"
instance FromJSON Contributor where
parseJSON = withObject "Contributor" $ \o -> do
t <- o .: "type"
case t of
_ | t == ("Anonymous" :: Text) ->
AnonymousContributor
<$> o .: "contributions"
<*> o .: "name"
_ | otherwise ->
KnownContributor
<$> o .: "contributions"
<*> o .: "avatar_url"
<*> o .: "login"
<*> o .: "url"
<*> o .: "id"
<*> o .: "gravatar_id"
instance FromJSON Language where
parseJSON = withText "Language" (pure . Language)
instance ToJSON Language where
toJSON = toJSON . getLanguage
instance FromJSON a => FromJSON (HM.HashMap Language a) where
parseJSON = fmap mapKeyLanguage . parseJSON
where
mapKeyLanguage :: HM.HashMap Text a -> HM.HashMap Language a
#ifdef UNSAFE
mapKeyLanguage = unsafeCoerce
#else
mapKeyLanguage = mapKey Language
mapKey :: (Eq k2, Hashable k2) => (k1 -> k2) -> HM.HashMap k1 a -> HM.HashMap k2 a
mapKey f = HM.fromList . map (first f) . HM.toList
#endif