octohat 0.1 → 0.1.1
raw patch · 3 files changed
+12/−6 lines, 3 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- octohat.cabal +8/−2
- spec/Network/Octohat/TestData.hs +1/−1
- src/Network/Octohat.hs +3/−3
octohat.cabal view
@@ -1,12 +1,14 @@ Name: octohat-Version: 0.1-Synopsis: A tested, minimal wrapper around GitHub's API. Very incomplete at the moment+Synopsis: A tested, minimal wrapper around GitHub's API.+Version: 0.1.1 License: MIT Author: Stack Builders Maintainer: hackage@stackbuilders.com Stability: Experimental Category: Network Build-type: Simple+Homepage: https://github.com/stackbuilders/octohat+Bug-reports: https://github.com/stackbuilders/octohat/issues Cabal-version: >=1.10 Library@@ -61,3 +63,7 @@ other-modules: Network.Octohat.TestData, Network.Octohat.TestUtil default-language: Haskell2010++source-repository head+ type: git+ location: https://github.com/stackbuilders/octohat
spec/Network/Octohat/TestData.hs view
@@ -50,7 +50,7 @@ loadTestOrganizationName = organization `fmap` loadEnv loadOwnerTeam :: GitHub Team-loadOwnerTeam = liftIO (organization `fmap` loadEnv) >>= teamForTeamNameInOrg "Owners"+loadOwnerTeam = liftIO (organization `fmap` loadEnv) >>= flip teamForTeamNameInOrg "Owners" loadTestAccountOne :: GitHub Member loadTestAccountOne = liftIO (accountOne `fmap` loadEnv) >>= userForUsername
src/Network/Octohat.hs view
@@ -38,10 +38,10 @@ let memberFingerprints = publicKeySetToFingerprints pubKeys return $ makeMembersWithKey members pubKeys memberFingerprints -teamForTeamNameInOrg :: T.Text -- ^ Team name- -> T.Text -- ^ Organization name+teamForTeamNameInOrg :: T.Text -- ^ Organization name+ -> T.Text -- ^ Team name -> GitHub Team-teamForTeamNameInOrg nameOfTeam nameOfOrg = do+teamForTeamNameInOrg nameOfOrg nameOfTeam = do teams <- teamsForOrganization nameOfOrg tryHead NotFound (teamsWithName nameOfTeam teams)