@@ -113,7 +113,6 @@ data GitHubSource = GitHubSource
113113 { _gitHubSource_owner :: Name Owner
114114 , _gitHubSource_repo :: Name Repo
115115 , _gitHubSource_branch :: Maybe (Name Branch)
116− , _gitHubSource_private :: Bool
117116 }
118117 deriving (Show, Eq, Ord)
119118
@@ -300,12 +299,10 @@ parseGitHubSource v = do
300299 owner <- v Aeson..: "owner"
301300 repo <- v Aeson..: "repo"
302301 branch <- v Aeson..:! "branch"
303− mPrivate <- v Aeson..:! "private"
304302 pure $ GitHubSource
305303 { _gitHubSource_owner = owner
306304 , _gitHubSource_repo = repo
307305 , _gitHubSource_branch = branch
308− , _gitHubSource_private = fromMaybe False mPrivate
309306 }
310307
311308parseGitSource :: Aeson.Object -> Aeson.Parser GitSource
@@ -341,9 +338,6 @@ encodeThunkPtrData (ThunkPtr rev src) = case src of
341338 [ Just $ "owner" .= _gitHubSource_owner s
342339 , Just $ "repo" .= _gitHubSource_repo s
343340 , ("branch" .=) <$> _gitHubSource_branch s
344− , if _gitHubSource_private s
345− then Just $ "private" .= True
346− else Nothing
347341 , Just $ "rev" .= Ref.toHexString (_thunkRev_commit rev)
348342 , Just $ "sha256" .= _thunkRev_nixSha256 rev
349343 ]
@@ -761,8 +755,6 @@ githubThunkPtr owner' repo' commit = do
761755 let owner = N (T.pack owner')
762756 repo = N (T.pack (dropExtension repo'))
763757 mauth <- liftIO $ getHubAuth "github.com"
764− repoResult <- liftIO $ executeRequestMaybe mauth $ repositoryR owner repo
765− repoIsPrivate <- either (liftIO . throwIO) (return . repoPrivate) repoResult
766758 archiveResult <- liftIO $ executeRequestMaybe mauth $
767759 archiveForR owner repo ArchiveFormatTarball (Just commit)
768760 archiveUri <- either (liftIO . throwIO) return archiveResult
@@ -776,7 +768,6 @@ githubThunkPtr owner' repo' commit = do
776768 { _gitHubSource_owner = owner
777769 , _gitHubSource_repo = repo
778770 , _gitHubSource_branch = N <$> mbranch
779− , _gitHubSource_private = repoIsPrivate
780771 }
781772 }
782773