Skip to content

Commit 3153383

Browse files
phadejphadej
committed
Add teams samples
1 parent 36a6c07 commit 3153383

7 files changed

Lines changed: 136 additions & 26 deletions

File tree

‎samples/Teams/DeleteTeam.hs‎

Lines changed: 7 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -1,16 +1,17 @@
11
{-# LANGUAGE OverloadedStrings #-}
2+
module Main (main) where
23

3-
module DeleteTeam where
4+
import Common
5+
import Prelude ()
46

5-
import qualified Github.Auth as Github
6-
import qualified Github.Teams as Github
7-
import System.Environment (getArgs)
7+
import qualified Github.Organizations.Teams as Github
88

9+
main :: IO ()
910
main = do
1011
args <- getArgs
1112
result <- case args of
1213
[token, team_id] -> Github.deleteTeam' (Github.GithubOAuth token) (read team_id)
1314
_ -> error "usage: DeleteTeam <token> <team_id>"
1415
case result of
15-
Left err -> putStrLn $ "Error: " ++ show err
16-
Right team -> putStrLn $ show team
16+
Left err -> putStrLn $ "Error: " <> tshow err
17+
Right team -> putStrLn $ tshow team

‎samples/Teams/EditTeam.hs‎

Lines changed: 8 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -1,21 +1,22 @@
11
{-# LANGUAGE OverloadedStrings #-}
2+
module Main (main) where
23

3-
module EditTeam where
4+
import Common
5+
import Prelude ()
46

5-
import qualified Github.Auth as Github
6-
import qualified Github.Teams as Github
7-
import System.Environment (getArgs)
7+
import qualified Github.Organizations.Teams as Github
88

9+
main :: IO ()
910
main = do
1011
args <- getArgs
1112
result <- case args of
1213
[token, team_id, team_name, desc] ->
1314
Github.editTeam'
1415
(Github.GithubOAuth token)
1516
(read team_id)
16-
(Github.EditTeam team_name (Just desc) Github.PermissionPull)
17+
(Github.EditTeam (Github.mkName (Proxy :: Proxy Github.Team) $ fromString team_name) (Just $ fromString desc) Github.PermissionPull)
1718
_ ->
1819
error "usage: EditTeam <token> <team_id> <team_name> <description>"
1920
case result of
20-
Left err -> putStrLn $ "Error: " ++ show err
21-
Right team -> putStrLn $ show team
21+
Left err -> putStrLn $ "Error: " <> tshow err
22+
Right team -> putStrLn $ tshow team

‎samples/Teams/ListTeamsCurrent.hs‎

Lines changed: 7 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -1,16 +1,17 @@
11
{-# LANGUAGE OverloadedStrings #-}
2+
module Main (main) where
23

3-
module ListTeamsCurrent where
4+
import Common
5+
import Prelude ()
46

5-
import qualified Github.Auth as Github
6-
import qualified Github.Teams as Github
7-
import System.Environment (getArgs)
7+
import qualified Github.Organizations.Teams as Github
88

9+
main :: IO ()
910
main = do
1011
args <- getArgs
1112
result <- case args of
1213
[token] -> Github.listTeamsCurrent' (Github.GithubOAuth token)
1314
_ -> error "usage: ListTeamsCurrent <token>"
1415
case result of
15-
Left err -> putStrLn $ "Error: " ++ show err
16-
Right teams -> mapM_ (putStrLn . show) teams
16+
Left err -> putStrLn $ "Error: " <> tshow err
17+
Right teams -> mapM_ (putStrLn . tshow) teams

‎samples/Teams/TeamInfoFor.hs‎

Lines changed: 7 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -1,17 +1,18 @@
11
{-# LANGUAGE OverloadedStrings #-}
2+
module Main (main) where
23

3-
module TeamInfoFor where
4+
import Common
5+
import Prelude ()
46

5-
import qualified Github.Auth as Github
6-
import qualified Github.Teams as Github
7-
import System.Environment (getArgs)
7+
import qualified Github.Organizations.Teams as Github
88

9+
main :: IO ()
910
main = do
1011
args <- getArgs
1112
result <- case args of
1213
[team_id, token] -> Github.teamInfoFor' (Just $ Github.GithubOAuth token) (read team_id)
1314
[team_id] -> Github.teamInfoFor (read team_id)
1415
_ -> error "usage: TeamInfoFor <team_id> [auth token]"
1516
case result of
16-
Left err -> putStrLn $ "Error: " ++ show err
17-
Right team -> putStrLn $ show team
17+
Left err -> putStrLn $ "Error: " <> tshow err
18+
Right team -> putStrLn $ tshow team

‎samples/github-samples.cabal‎

Lines changed: 80 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -20,6 +20,26 @@ library
2020
Common
2121
default-language: Haskell2010
2222

23+
executable github-edit-team
24+
main-is: EditTeam.hs
25+
hs-source-dirs:
26+
Teams
27+
ghc-options: -Wall
28+
build-depends:
29+
base
30+
, base-compat
31+
, github
32+
, text
33+
, github-samples
34+
other-modules:
35+
DeleteTeam
36+
ListTeamsCurrent
37+
Memberships.AddTeamMembershipFor
38+
Memberships.DeleteTeamMembershipFor
39+
Memberships.TeamMembershipInfoFor
40+
TeamInfoFor
41+
default-language: Haskell2010
42+
2343
executable github-show-user
2444
main-is: ShowUser.hs
2545
hs-source-dirs:
@@ -65,3 +85,63 @@ executable github-list-followers
6585
other-modules:
6686
ListFollowing
6787
default-language: Haskell2010
88+
89+
executable github-list-team-current
90+
main-is: ListTeamsCurrent.hs
91+
hs-source-dirs:
92+
Teams
93+
ghc-options: -Wall
94+
build-depends:
95+
base
96+
, base-compat
97+
, github
98+
, text
99+
, github-samples
100+
other-modules:
101+
DeleteTeam
102+
EditTeam
103+
Memberships.AddTeamMembershipFor
104+
Memberships.DeleteTeamMembershipFor
105+
Memberships.TeamMembershipInfoFor
106+
TeamInfoFor
107+
default-language: Haskell2010
108+
109+
executable github-teaminfo-fir
110+
main-is: TeamInfoFor.hs
111+
hs-source-dirs:
112+
Teams
113+
ghc-options: -Wall
114+
build-depends:
115+
base
116+
, base-compat
117+
, github
118+
, text
119+
, github-samples
120+
other-modules:
121+
DeleteTeam
122+
EditTeam
123+
ListTeamsCurrent
124+
Memberships.AddTeamMembershipFor
125+
Memberships.DeleteTeamMembershipFor
126+
Memberships.TeamMembershipInfoFor
127+
default-language: Haskell2010
128+
129+
executable github-delete-team
130+
main-is: DeleteTeam.hs
131+
hs-source-dirs:
132+
Teams
133+
ghc-options: -Wall
134+
build-depends:
135+
base
136+
, base-compat
137+
, github
138+
, text
139+
, github-samples
140+
other-modules:
141+
EditTeam
142+
ListTeamsCurrent
143+
Memberships.AddTeamMembershipFor
144+
Memberships.DeleteTeamMembershipFor
145+
Memberships.TeamMembershipInfoFor
146+
TeamInfoFor
147+
default-language: Haskell2010

‎samples/package.yaml‎

Lines changed: 21 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -26,4 +26,24 @@ executables:
2626
main: ListFollowing.hs
2727
source-dirs: Users/Followers
2828
dependencies:
29-
- github-samples
29+
- github-samples
30+
github-delete-team:
31+
main: DeleteTeam.hs
32+
source-dirs: Teams
33+
dependencies:
34+
- github-samples
35+
github-edit-team:
36+
main: EditTeam.hs
37+
source-dirs: Teams
38+
dependencies:
39+
- github-samples
40+
github-list-team-current:
41+
main: ListTeamsCurrent.hs
42+
source-dirs: Teams
43+
dependencies:
44+
- github-samples
45+
github-teaminfo-fir:
46+
main: TeamInfoFor.hs
47+
source-dirs: Teams
48+
dependencies:
49+
- github-samples

‎samples/src/Common.hs‎

Lines changed: 6 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -4,18 +4,24 @@ module Common (
44
tshow,
55
-- * Re-exports
66
(<>),
7+
fromString,
78
Text,
89
putStrLn,
10+
getArgs,
11+
Proxy(..),
912
module Prelude.Compat,
1013
) where
1114

1215
import Prelude ()
1316
import Prelude.Compat hiding (putStrLn)
1417

1518
import Data.Monoid ((<>))
19+
import Data.Proxy (Proxy (..))
20+
import Data.String (fromString)
1621
import Data.Text (Text)
1722
import Data.Text.IO (putStrLn)
1823
import System.Environment (lookupEnv)
24+
import System.Environment (getArgs)
1925

2026
import qualified Data.Text as T
2127
import qualified Github.Data as Github

0 commit comments

Comments
 (0)