20b901f · gogol · git.iko.soy

git.iko.soy/gogol

Merge branch 'release/0.0.1'

commit20b901f4d46fddd89854262ef8e4256ce9fea0ad authorBrendan Hay <brendan.g.hay@gmail.com> dateSat 24 Oct 2015, 12:30 (11 years ago) parentdeafb4e 1e33760

3163 files changed+903324−78

compare with develop

unifiedsplit

163 more files changed are not listed.

.travis.ymlnew file+229

@@ -0,0 +1,229 @@

1+sudo: false

3+env:

4+ global:

5+ - DOC_REF: github.com/brendanhay/gogol-doc.git

6+ - secure: "e8/e9v3up3L8uzoeUiE+u51JXNtY4run3LPPnUD3l5znUCy4ginsW7Eg3NYyuCq8yyI2QdxFZjD/+5+kHJwmIF02u57F6a8YUUsKu15pqIMB+zPsF+3MftNy+R7c4LvZGqEFwJPX1+yFOn41Wtx+7qawSXht4lqD/nLdbI79tPZxX05ApDnPnoNn6725iE61H8lw+DlXttxemRh5OowXfIaOFbGw0WEQ+oZ2UWTdUUTCyQ7OLZp2H0Mzvh22ym09/UWKXGmuYMZ1AxzqnSabSqEIDhx9gWsEf/cmiVjQTbcLh7sB6u5O0vt6puz5002yvl+EUtKQr2KPEimbkykAvHEuZycD79p6k2pqrhib0XVsCmIxiMmOcSQI4EQnjtosTZac8UeZpvaQomue5CGzM123rmKcD76X7VtSNgWmhoucu+Mo8BFW2JWyA5egLpYkKZe04fWbD6wTxco6mm0LgxwwITRAY/6dDrpPwzZjyJ6wvC4zDZ/wAe+gcYupRXSGJlQrHaabxJKxdGdX20TaogaYDWFdAHBCq3x3PDTUT08a2VsSQ76t1HQ1Eu0cOFXKcrPIpW58K1sFeEJgz638RlRHGCT2yIuWJmF/bdXXYRXGo/7Xl8SzptXalwdrcv+xZGTKNwZzqBgdzg5A4ogqiMLUin6VQi+EOALzgKsOuj4="

8+cache:

9+ apt: true

10+ directories:

11+ - ~/.stack

12+

13+branches:

14+ only:

15+ - master

16+ - develop

17+

18+before_install:

19+ - export PATH=/opt/ghc/$GHCVER/bin:$PATH

20+ - export PATH=~/.local/bin:$PATH

21+ - ./script/travis-lifecycle-before_install

22+

23+install:

24+ - ./script/travis-lifecycle-install

25+

26+script:

27+ - ./script/travis-lifecycle-script

28+

29+matrix:

30+ fast_finish: true

31+ allow_failures:

32+ # This is due to the constant GHC ExitFailure (-9) that occurs on

33+ # the non-GCE/container infrastructure.

34+ - env: GHCVER=7.10.2 LIBRARY=gogol-dfareporting

35+

36+ include:

37+ # Below is auto-generated by ./scripts/travis-matrix >> .travis.yml

38+

39+ # Documentation

40+ - env: GHCVER=7.10.2 LIBRARY=documentation

41+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

42+

43+ # Core

44+ - env: GHCVER=7.10.2 LIBRARY=gogol-core

45+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

46+ - env: GHCVER=7.10.2 LIBRARY=gogol

47+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

48+

49+ # Priority

50+ - env: GHCVER=7.10.2 LIBRARY=gogol-compute

51+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

52+ - env: GHCVER=7.10.2 LIBRARY=gogol-drive

53+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

54+ - env: GHCVER=7.10.2 LIBRARY=gogol-appengine

55+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

56+ - env: GHCVER=7.10.2 LIBRARY=gogol-storage

57+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

58+ - env: GHCVER=7.10.2 LIBRARY=gogol-oauth2

59+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

60+ - env: GHCVER=7.10.2 LIBRARY=gogol-gmail

61+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

62+

63+ # Remainder

64+ - env: GHCVER=7.10.2 LIBRARY=gogol-adexchange-buyer

65+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

66+ - env: GHCVER=7.10.2 LIBRARY=gogol-adexchange-seller

67+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

68+ - env: GHCVER=7.10.2 LIBRARY=gogol-admin-datatransfer

69+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

70+ - env: GHCVER=7.10.2 LIBRARY=gogol-admin-directory

71+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

72+ - env: GHCVER=7.10.2 LIBRARY=gogol-admin-emailmigration

73+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

74+ - env: GHCVER=7.10.2 LIBRARY=gogol-admin-reports

75+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

76+ - env: GHCVER=7.10.2 LIBRARY=gogol-adsense

77+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

78+ - env: GHCVER=7.10.2 LIBRARY=gogol-adsense-host

79+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

80+ - env: GHCVER=7.10.2 LIBRARY=gogol-affiliates

81+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

82+ - env: GHCVER=7.10.2 LIBRARY=gogol-analytics

83+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

84+ - env: GHCVER=7.10.2 LIBRARY=gogol-android-enterprise

85+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

86+ - env: GHCVER=7.10.2 LIBRARY=gogol-android-publisher

87+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

88+ - env: GHCVER=7.10.2 LIBRARY=gogol-apps-activity

89+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

90+ - env: GHCVER=7.10.2 LIBRARY=gogol-apps-calendar

91+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

92+ - env: GHCVER=7.10.2 LIBRARY=gogol-apps-licensing

93+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

94+ - env: GHCVER=7.10.2 LIBRARY=gogol-apps-reseller

95+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

96+ - env: GHCVER=7.10.2 LIBRARY=gogol-apps-tasks

97+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

98+ - env: GHCVER=7.10.2 LIBRARY=gogol-appstate

99+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

100+ - env: GHCVER=7.10.2 LIBRARY=gogol-autoscaler

101+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

102+ - env: GHCVER=7.10.2 LIBRARY=gogol-bigquery

103+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

104+ - env: GHCVER=7.10.2 LIBRARY=gogol-billing

105+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

106+ - env: GHCVER=7.10.2 LIBRARY=gogol-blogger

107+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

108+ - env: GHCVER=7.10.2 LIBRARY=gogol-books

109+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

110+ - env: GHCVER=7.10.2 LIBRARY=gogol-civicinfo

111+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

112+ - env: GHCVER=7.10.2 LIBRARY=gogol-classroom

113+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

114+ - env: GHCVER=7.10.2 LIBRARY=gogol-cloudtrace

115+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

116+ - env: GHCVER=7.10.2 LIBRARY=gogol-container

117+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

118+ - env: GHCVER=7.10.2 LIBRARY=gogol-customsearch

119+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

120+ - env: GHCVER=7.10.2 LIBRARY=gogol-dataflow

121+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

122+ - env: GHCVER=7.10.2 LIBRARY=gogol-datastore

123+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

124+ - env: GHCVER=7.10.2 LIBRARY=gogol-debugger

125+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

126+ - env: GHCVER=7.10.2 LIBRARY=gogol-deploymentmanager

127+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

128+ - env: GHCVER=7.10.2 LIBRARY=gogol-dfareporting

129+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

130+ - env: GHCVER=7.10.2 LIBRARY=gogol-discovery

131+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

132+ - env: GHCVER=7.10.2 LIBRARY=gogol-dns

133+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

134+ - env: GHCVER=7.10.2 LIBRARY=gogol-doubleclick-bids

135+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

136+ - env: GHCVER=7.10.2 LIBRARY=gogol-doubleclick-search

137+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

138+ - env: GHCVER=7.10.2 LIBRARY=gogol-fitness

139+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

140+ - env: GHCVER=7.10.2 LIBRARY=gogol-fonts

141+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

142+ - env: GHCVER=7.10.2 LIBRARY=gogol-freebasesearch

143+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

144+ - env: GHCVER=7.10.2 LIBRARY=gogol-fusiontables

145+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

146+ - env: GHCVER=7.10.2 LIBRARY=gogol-games

147+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

148+ - env: GHCVER=7.10.2 LIBRARY=gogol-games-configuration

149+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

150+ - env: GHCVER=7.10.2 LIBRARY=gogol-games-management

151+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

152+ - env: GHCVER=7.10.2 LIBRARY=gogol-genomics

153+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

154+ - env: GHCVER=7.10.2 LIBRARY=gogol-groups-migration

155+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

156+ - env: GHCVER=7.10.2 LIBRARY=gogol-groups-settings

157+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

158+ - env: GHCVER=7.10.2 LIBRARY=gogol-identity-toolkit

159+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

160+ - env: GHCVER=7.10.2 LIBRARY=gogol-latencytest

161+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

162+ - env: GHCVER=7.10.2 LIBRARY=gogol-logging

163+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

164+ - env: GHCVER=7.10.2 LIBRARY=gogol-maps-coordinate

165+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

166+ - env: GHCVER=7.10.2 LIBRARY=gogol-maps-engine

167+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

168+ - env: GHCVER=7.10.2 LIBRARY=gogol-mirror

169+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

170+ - env: GHCVER=7.10.2 LIBRARY=gogol-monitoring

171+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

172+ - env: GHCVER=7.10.2 LIBRARY=gogol-pagespeed

173+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

174+ - env: GHCVER=7.10.2 LIBRARY=gogol-partners

175+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

176+ - env: GHCVER=7.10.2 LIBRARY=gogol-play-moviespartner

177+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

178+ - env: GHCVER=7.10.2 LIBRARY=gogol-plus

179+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

180+ - env: GHCVER=7.10.2 LIBRARY=gogol-plus-domains

181+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

182+ - env: GHCVER=7.10.2 LIBRARY=gogol-prediction

183+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

184+ - env: GHCVER=7.10.2 LIBRARY=gogol-proximitybeacon

185+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

186+ - env: GHCVER=7.10.2 LIBRARY=gogol-pubsub

187+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

188+ - env: GHCVER=7.10.2 LIBRARY=gogol-qpxexpress

189+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

190+ - env: GHCVER=7.10.2 LIBRARY=gogol-replicapool

191+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

192+ - env: GHCVER=7.10.2 LIBRARY=gogol-replicapool-updater

193+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

194+ - env: GHCVER=7.10.2 LIBRARY=gogol-resourcemanager

195+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

196+ - env: GHCVER=7.10.2 LIBRARY=gogol-resourceviews

197+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

198+ - env: GHCVER=7.10.2 LIBRARY=gogol-shopping-content

199+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

200+ - env: GHCVER=7.10.2 LIBRARY=gogol-siteverification

201+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

202+ - env: GHCVER=7.10.2 LIBRARY=gogol-spectrum

203+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

204+ - env: GHCVER=7.10.2 LIBRARY=gogol-sqladmin

205+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

206+ - env: GHCVER=7.10.2 LIBRARY=gogol-storage-transfer

207+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

208+ - env: GHCVER=7.10.2 LIBRARY=gogol-tagmanager

209+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

210+ - env: GHCVER=7.10.2 LIBRARY=gogol-taskqueue

211+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

212+ - env: GHCVER=7.10.2 LIBRARY=gogol-translate

213+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

214+ - env: GHCVER=7.10.2 LIBRARY=gogol-urlshortener

215+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

216+ - env: GHCVER=7.10.2 LIBRARY=gogol-useraccounts

217+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

218+ - env: GHCVER=7.10.2 LIBRARY=gogol-webmaster-tools

219+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

220+ - env: GHCVER=7.10.2 LIBRARY=gogol-youtube

221+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

222+ - env: GHCVER=7.10.2 LIBRARY=gogol-youtube-analytics

223+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

224+ - env: GHCVER=7.10.2 LIBRARY=gogol-youtube-reporting

225+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

226+

227+ # Examples

228+ - env: GHCVER=7.10.2 LIBRARY=gogol-examples

229+ addons: { apt: { packages: [ghc-7.10.2], sources: [hvr-ghc] } }

LICENSE−6

@@ -365,9 +365,3 @@ file in a relevant directory) where a recipient would be likely to look

365365for such a notice.

366366

367367You may add additional accurate notices of copyright ownership.

368−

369−Exhibit B - "Incompatible With Secondary Licenses" Notice

370−---------------------------------------------------------

371−

372− This Source Code Form is "Incompatible With Secondary Licenses", as

373− defined by the Mozilla Public License, v. 2.0.

Makefilenew file+31

@@ -0,0 +1,31 @@

1+SERVICES ?= $(wildcard gogol-*)

2+LIBRARIES ?= core gogol $(SERVICES)

3+FORWARD := sdist upload candidate

5+build:

6+ stack --docker --docker-run-args '--memory=3G --cpuset-cpus=0,1' build

8+clean:

9+ stack clean

10+

11+define forward

12+$1: $$(addprefix $1-,$$(LIBRARIES))

13+

14+$1-%:

15+ @make -C $$* $1

16+

17+.PHONY: $1

18+endef

19+

20+$(foreach c,$(FORWARD),$(eval $(call forward, $c)))

21+

22+.PHONY: $(LIBRARIES)

23+

24+gogol:

25+ stack build gogol

26+

27+core:

28+ stack build gogol-core

29+

30+$(SERVICES):

31+ stack build $@

README.md+9−4

@@ -1,4 +1,8 @@

1−# Gozen

1+# Gogol

3+**Warning:** This is an experimental prototype/preview release which is still

4+under heavy development and not intended for public consumption, caveat emptor!

37* [Description](#description)

48* [Contribute](#contribute)

@@ -7,14 +11,15 @@

711

812## Description

913

10−> TODO

14+<img alt="Гоголь-моголь" height="261px;" src="https://upload.wikimedia.org/wikipedia/commons/c/c7/Kogel_mogel.JPG">

15+<img alt="Мико́ла Васи́льович Го́голь" height="261px" src="https://upload.wikimedia.org/wikipedia/commons/3/31/NV_Gogol.png">

1116

1217

1318## Contribute

1419

15−For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/gozen/issues).

20+For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/gogol/issues).

1621

1722

1823## Licence

1924

20−Gozen is released under the [Mozilla Public License Version 2.0](http://www.mozilla.org/MPL/).

25+Gogol is released under the [Mozilla Public License Version 2.0](http://www.mozilla.org/MPL/).

core/LICENSEnew file+367

@@ -0,0 +1,367 @@

1+Mozilla Public License Version 2.0

2+==================================

4+1. Definitions

5+--------------

7+1.1. "Contributor"

8+ means each individual or legal entity that creates, contributes to

9+ the creation of, or owns Covered Software.

10+

11+1.2. "Contributor Version"

12+ means the combination of the Contributions of others (if any) used

13+ by a Contributor and that particular Contributor's Contribution.

14+

15+1.3. "Contribution"

16+ means Covered Software of a particular Contributor.

17+

18+1.4. "Covered Software"

19+ means Source Code Form to which the initial Contributor has attached

20+ the notice in Exhibit A, the Executable Form of such Source Code

21+ Form, and Modifications of such Source Code Form, in each case

22+ including portions thereof.

23+

24+1.5. "Incompatible With Secondary Licenses"

25+ means

26+

27+ (a) that the initial Contributor has attached the notice described

28+ in Exhibit B to the Covered Software; or

29+

30+ (b) that the Covered Software was made available under the terms of

31+ version 1.1 or earlier of the License, but not also under the

32+ terms of a Secondary License.

33+

34+1.6. "Executable Form"

35+ means any form of the work other than Source Code Form.

36+

37+1.7. "Larger Work"

38+ means a work that combines Covered Software with other material, in

39+ a separate file or files, that is not Covered Software.

40+

41+1.8. "License"

42+ means this document.

43+

44+1.9. "Licensable"

45+ means having the right to grant, to the maximum extent possible,

46+ whether at the time of the initial grant or subsequently, any and

47+ all of the rights conveyed by this License.

48+

49+1.10. "Modifications"

50+ means any of the following:

51+

52+ (a) any file in Source Code Form that results from an addition to,

53+ deletion from, or modification of the contents of Covered

54+ Software; or

55+

56+ (b) any new file in Source Code Form that contains any Covered

57+ Software.

58+

59+1.11. "Patent Claims" of a Contributor

60+ means any patent claim(s), including without limitation, method,

61+ process, and apparatus claims, in any patent Licensable by such

62+ Contributor that would be infringed, but for the grant of the

63+ License, by the making, using, selling, offering for sale, having

64+ made, import, or transfer of either its Contributions or its

65+ Contributor Version.

66+

67+1.12. "Secondary License"

68+ means either the GNU General Public License, Version 2.0, the GNU

69+ Lesser General Public License, Version 2.1, the GNU Affero General

70+ Public License, Version 3.0, or any later versions of those

71+ licenses.

72+

73+1.13. "Source Code Form"

74+ means the form of the work preferred for making modifications.

75+

76+1.14. "You" (or "Your")

77+ means an individual or a legal entity exercising rights under this

78+ License. For legal entities, "You" includes any entity that

79+ controls, is controlled by, or is under common control with You. For

80+ purposes of this definition, "control" means (a) the power, direct

81+ or indirect, to cause the direction or management of such entity,

82+ whether by contract or otherwise, or (b) ownership of more than

83+ fifty percent (50%) of the outstanding shares or beneficial

84+ ownership of such entity.

85+

86+2. License Grants and Conditions

87+--------------------------------

88+

89+2.1. Grants

90+

91+Each Contributor hereby grants You a world-wide, royalty-free,

92+non-exclusive license:

93+

94+(a) under intellectual property rights (other than patent or trademark)

95+ Licensable by such Contributor to use, reproduce, make available,

96+ modify, display, perform, distribute, and otherwise exploit its

97+ Contributions, either on an unmodified basis, with Modifications, or

98+ as part of a Larger Work; and

99+

100+(b) under Patent Claims of such Contributor to make, use, sell, offer

101+ for sale, have made, import, and otherwise transfer either its

102+ Contributions or its Contributor Version.

103+

104+2.2. Effective Date

105+

106+The licenses granted in Section 2.1 with respect to any Contribution

107+become effective for each Contribution on the date the Contributor first

108+distributes such Contribution.

109+

110+2.3. Limitations on Grant Scope

111+

112+The licenses granted in this Section 2 are the only rights granted under

113+this License. No additional rights or licenses will be implied from the

114+distribution or licensing of Covered Software under this License.

115+Notwithstanding Section 2.1(b) above, no patent license is granted by a

116+Contributor:

117+

118+(a) for any code that a Contributor has removed from Covered Software;

119+ or

120+

121+(b) for infringements caused by: (i) Your and any other third party's

122+ modifications of Covered Software, or (ii) the combination of its

123+ Contributions with other software (except as part of its Contributor

124+ Version); or

125+

126+(c) under Patent Claims infringed by Covered Software in the absence of

127+ its Contributions.

128+

129+This License does not grant any rights in the trademarks, service marks,

130+or logos of any Contributor (except as may be necessary to comply with

131+the notice requirements in Section 3.4).

132+

133+2.4. Subsequent Licenses

134+

135+No Contributor makes additional grants as a result of Your choice to

136+distribute the Covered Software under a subsequent version of this

137+License (see Section 10.2) or under the terms of a Secondary License (if

138+permitted under the terms of Section 3.3).

139+

140+2.5. Representation

141+

142+Each Contributor represents that the Contributor believes its

143+Contributions are its original creation(s) or it has sufficient rights

144+to grant the rights to its Contributions conveyed by this License.

145+

146+2.6. Fair Use

147+

148+This License is not intended to limit any rights You have under

149+applicable copyright doctrines of fair use, fair dealing, or other

150+equivalents.

151+

152+2.7. Conditions

153+

154+Sections 3.1, 3.2, 3.3, and 3.4 are conditions of the licenses granted

155+in Section 2.1.

156+

157+3. Responsibilities

158+-------------------

159+

160+3.1. Distribution of Source Form

161+

162+All distribution of Covered Software in Source Code Form, including any

163+Modifications that You create or to which You contribute, must be under

164+the terms of this License. You must inform recipients that the Source

165+Code Form of the Covered Software is governed by the terms of this

166+License, and how they can obtain a copy of this License. You may not

167+attempt to alter or restrict the recipients' rights in the Source Code

168+Form.

169+

170+3.2. Distribution of Executable Form

171+

172+If You distribute Covered Software in Executable Form then:

173+

174+(a) such Covered Software must also be made available in Source Code

175+ Form, as described in Section 3.1, and You must inform recipients of

176+ the Executable Form how they can obtain a copy of such Source Code

177+ Form by reasonable means in a timely manner, at a charge no more

178+ than the cost of distribution to the recipient; and

179+

180+(b) You may distribute such Executable Form under the terms of this

181+ License, or sublicense it under different terms, provided that the

182+ license for the Executable Form does not attempt to limit or alter

183+ the recipients' rights in the Source Code Form under this License.

184+

185+3.3. Distribution of a Larger Work

186+

187+You may create and distribute a Larger Work under terms of Your choice,

188+provided that You also comply with the requirements of this License for

189+the Covered Software. If the Larger Work is a combination of Covered

190+Software with a work governed by one or more Secondary Licenses, and the

191+Covered Software is not Incompatible With Secondary Licenses, this

192+License permits You to additionally distribute such Covered Software

193+under the terms of such Secondary License(s), so that the recipient of

194+the Larger Work may, at their option, further distribute the Covered

195+Software under the terms of either this License or such Secondary

196+License(s).

197+

198+3.4. Notices

199+

200+You may not remove or alter the substance of any license notices

201+(including copyright notices, patent notices, disclaimers of warranty,

202+or limitations of liability) contained within the Source Code Form of

203+the Covered Software, except that You may alter any license notices to

204+the extent required to remedy known factual inaccuracies.

205+

206+3.5. Application of Additional Terms

207+

208+You may choose to offer, and to charge a fee for, warranty, support,

209+indemnity or liability obligations to one or more recipients of Covered

210+Software. However, You may do so only on Your own behalf, and not on

211+behalf of any Contributor. You must make it absolutely clear that any

212+such warranty, support, indemnity, or liability obligation is offered by

213+You alone, and You hereby agree to indemnify every Contributor for any

214+liability incurred by such Contributor as a result of warranty, support,

215+indemnity or liability terms You offer. You may include additional

216+disclaimers of warranty and limitations of liability specific to any

217+jurisdiction.

218+

219+4. Inability to Comply Due to Statute or Regulation

220+---------------------------------------------------

221+

222+If it is impossible for You to comply with any of the terms of this

223+License with respect to some or all of the Covered Software due to

224+statute, judicial order, or regulation then You must: (a) comply with

225+the terms of this License to the maximum extent possible; and (b)

226+describe the limitations and the code they affect. Such description must

227+be placed in a text file included with all distributions of the Covered

228+Software under this License. Except to the extent prohibited by statute

229+or regulation, such description must be sufficiently detailed for a

230+recipient of ordinary skill to be able to understand it.

231+

232+5. Termination

233+--------------

234+

235+5.1. The rights granted under this License will terminate automatically

236+if You fail to comply with any of its terms. However, if You become

237+compliant, then the rights granted under this License from a particular

238+Contributor are reinstated (a) provisionally, unless and until such

239+Contributor explicitly and finally terminates Your grants, and (b) on an

240+ongoing basis, if such Contributor fails to notify You of the

241+non-compliance by some reasonable means prior to 60 days after You have

242+come back into compliance. Moreover, Your grants from a particular

243+Contributor are reinstated on an ongoing basis if such Contributor

244+notifies You of the non-compliance by some reasonable means, this is the

245+first time You have received notice of non-compliance with this License

246+from such Contributor, and You become compliant prior to 30 days after

247+Your receipt of the notice.

248+

249+5.2. If You initiate litigation against any entity by asserting a patent

250+infringement claim (excluding declaratory judgment actions,

251+counter-claims, and cross-claims) alleging that a Contributor Version

252+directly or indirectly infringes any patent, then the rights granted to

253+You by any and all Contributors for the Covered Software under Section

254+2.1 of this License shall terminate.

255+

256+5.3. In the event of termination under Sections 5.1 or 5.2 above, all

257+end user license agreements (excluding distributors and resellers) which

258+have been validly granted by You or Your distributors under this License

259+prior to termination shall survive termination.

260+

261+************************************************************************

262+* *

263+* 6. Disclaimer of Warranty *

264+* ------------------------- *

265+* *

266+* Covered Software is provided under this License on an "as is" *

267+* basis, without warranty of any kind, either expressed, implied, or *

268+* statutory, including, without limitation, warranties that the *

269+* Covered Software is free of defects, merchantable, fit for a *

270+* particular purpose or non-infringing. The entire risk as to the *

271+* quality and performance of the Covered Software is with You. *

272+* Should any Covered Software prove defective in any respect, You *

273+* (not any Contributor) assume the cost of any necessary servicing, *

274+* repair, or correction. This disclaimer of warranty constitutes an *

275+* essential part of this License. No use of any Covered Software is *

276+* authorized under this License except under this disclaimer. *

277+* *

278+************************************************************************

279+

280+************************************************************************

281+* *

282+* 7. Limitation of Liability *

283+* -------------------------- *

284+* *

285+* Under no circumstances and under no legal theory, whether tort *

286+* (including negligence), contract, or otherwise, shall any *

287+* Contributor, or anyone who distributes Covered Software as *

288+* permitted above, be liable to You for any direct, indirect, *

289+* special, incidental, or consequential damages of any character *

290+* including, without limitation, damages for lost profits, loss of *

291+* goodwill, work stoppage, computer failure or malfunction, or any *

292+* and all other commercial damages or losses, even if such party *

293+* shall have been informed of the possibility of such damages. This *

294+* limitation of liability shall not apply to liability for death or *

295+* personal injury resulting from such party's negligence to the *

296+* extent applicable law prohibits such limitation. Some *

297+* jurisdictions do not allow the exclusion or limitation of *

298+* incidental or consequential damages, so this exclusion and *

299+* limitation may not apply to You. *

300+* *

301+************************************************************************

302+

303+8. Litigation

304+-------------

305+

306+Any litigation relating to this License may be brought only in the

307+courts of a jurisdiction where the defendant maintains its principal

308+place of business and such litigation shall be governed by laws of that

309+jurisdiction, without reference to its conflict-of-law provisions.

310+Nothing in this Section shall prevent a party's ability to bring

311+cross-claims or counter-claims.

312+

313+9. Miscellaneous

314+----------------

315+

316+This License represents the complete agreement concerning the subject

317+matter hereof. If any provision of this License is held to be

318+unenforceable, such provision shall be reformed only to the extent

319+necessary to make it enforceable. Any law or regulation which provides

320+that the language of a contract shall be construed against the drafter

321+shall not be used to construe this License against a Contributor.

322+

323+10. Versions of the License

324+---------------------------

325+

326+10.1. New Versions

327+

328+Mozilla Foundation is the license steward. Except as provided in Section

329+10.3, no one other than the license steward has the right to modify or

330+publish new versions of this License. Each version will be given a

331+distinguishing version number.

332+

333+10.2. Effect of New Versions

334+

335+You may distribute the Covered Software under the terms of the version

336+of the License under which You originally received the Covered Software,

337+or under the terms of any subsequent version published by the license

338+steward.

339+

340+10.3. Modified Versions

341+

342+If you create software not governed by this License, and you want to

343+create a new license for such software, you may create and use a

344+modified version of this License if you rename the license and remove

345+any references to the name of the license steward (except to note that

346+such modified license differs from this License).

347+

348+10.4. Distributing Source Code Form that is Incompatible With Secondary

349+Licenses

350+

351+If You choose to distribute Source Code Form that is Incompatible With

352+Secondary Licenses under the terms of this version of the License, the

353+notice described in Exhibit B of this License must be attached.

354+

355+Exhibit A - Source Code Form License Notice

356+-------------------------------------------

357+

358+ This Source Code Form is subject to the terms of the Mozilla Public

359+ License, v. 2.0. If a copy of the MPL was not distributed with this

360+ file, You can obtain one at http://mozilla.org/MPL/2.0/.

361+

362+If it is not possible or desirable to put the notice in a particular

363+file, then You may include the notice in a location (such as a LICENSE

364+file in a relevant directory) where a recipient would be likely to look

365+for such a notice.

366+

367+You may add additional accurate notices of copyright ownership.

core/Makefilenew file+3

@@ -0,0 +1,3 @@

1+NAME := gogol-core

3+include ../share/library.mk

core/README.mdnew file+20

@@ -0,0 +1,20 @@

1+# Gogol Core

3+* [Description](#description)

4+* [Contribute](#contribute)

5+* [Licence](#licence)

8+## Description

10+> TODO

11+

12+

13+## Contribute

14+

15+For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/gogol/issues).

16+

17+

18+## Licence

19+

20+Gogol is released under the [Mozilla Public License Version 2.0](http://www.mozilla.org/MPL/).

core/Setup.hsnew file+2

@@ -0,0 +1,2 @@

1+import Distribution.Simple

2+main = defaultMain

core/gogol-core.cabalnew file+90

@@ -0,0 +1,90 @@

1+name: gogol-core

2+version: 0.0.1

3+synopsis: Core data types and functionality for Gogol libraries.

4+homepage: https://github.com/brendanhay/gogol

5+bug-reports: https://github.com/brendanhay/gogol/issues

6+license: OtherLicense

7+license-file: LICENSE

8+author: Brendan Hay

9+maintainer: Brendan Hay <brendan.g.hay@gmail.com>

11+category: Network, Google, Cloud

12+build-type: Simple

13+extra-source-files: README.md

14+cabal-version: >= 1.10

15+

16+description:

17+ Core data types, functionality and serialisation primitives for

18+ Gogol related Google Services SDKs.

19+ .

20+ The external interface of this library is stable with respect to the

21+ downstream Gogol libraries, only, and as such is not suitable

22+ for use in non-Gogol projects.

23+

24+source-repository head

25+ type: git

26+ location: git://github.com/brendanhay/gogol.git

27+

28+flag old-locale

29+ description: Use old-locale and time < 1.5

30+ default: False

31+

32+library

33+ default-language: Haskell2010

34+ hs-source-dirs: src

35+

36+ ghc-options: -Wall

37+

38+ exposed-modules:

39+ Network.Google.Data.JSON

40+ , Network.Google.Data.Numeric

41+ , Network.Google.Data.Time

42+ , Network.Google.Prelude

43+ , Network.Google.Types

44+

45+ build-depends:

46+ aeson >= 0.8

47+ , attoparsec >= 0.11.3

48+ , base >= 4.7 && < 5

49+ , bytestring >= 0.9

50+ , case-insensitive >= 1.2

51+ , conduit >= 1.1

52+ , dlist >= 0.7

53+ , exceptions >= 0.6

54+ , hashable >= 1.2

55+ , http-client >= 0.4.4

56+ , http-media >= 0.6

57+ , http-types >= 0.8.6

58+ , lens >= 4.4

59+ , resourcet >= 1.1

60+ , scientific >= 0.3

61+ , servant >= 0.4.4

62+ , text >= 1.1

63+ , unordered-containers >= 0.2.5

64+

65+ if !impl(ghc>=7.9)

66+ build-depends:

67+ nats >= 0.1.3

68+

69+ if flag(old-locale)

70+ build-depends:

71+ old-locale == 1.*

72+ , time >= 1.2 && < 1.5

73+ else

74+ build-depends:

75+ time >= 1.5 && < 1.6

76+

77+test-suite tests

78+ type: exitcode-stdio-1.0

79+ default-language: Haskell2010

80+ hs-source-dirs: test

81+ main-is: Main.hs

82+

83+ ghc-options: -Wall -threaded

84+

85+ other-modules:

86+

87+ build-depends:

88+ gogol-core

89+ , base

90+ , tasty

core/src/Network/Google/Data/JSON.hsnew file+64

@@ -0,0 +1,64 @@

1+{-# LANGUAGE DeriveDataTypeable #-}

2+{-# LANGUAGE GeneralizedNewtypeDeriving #-}

3+{-# LANGUAGE ScopedTypeVariables #-}

5+-- |

6+-- Module : Network.Google.Data.JSON

8+-- License : Mozilla Public License, v. 2.0.

9+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

10+-- Stability : provisional

11+-- Portability : non-portable (GHC extensions)

12+--

13+module Network.Google.Data.JSON

14+ ( JSONValue

15+ , Textual (..)

16+ , parseJSONObject

17+ , parseJSONText

18+ , toJSONText

19+

20+ -- * Re-exports

21+ , FromJSON (..)

22+ , ToJSON (..)

23+

24+ , withObject

25+ , emptyObject

26+ , object

27+

28+ , (.=)

29+ , (.:)

30+ , (.:?)

31+ , (.!=)

32+ ) where

33+

34+import Data.Aeson

35+import Data.Aeson.Types

36+import Data.Data

37+import Data.HashMap.Strict (HashMap)

38+import Data.Text (Text)

39+import qualified Data.Text as Text

40+import Servant.API

41+

42+type JSONValue = Value

43+

44+newtype Textual a = Textual a

45+ deriving (Eq, Ord, Read, Show, Num, Fractional, Data, Typeable, FromText, ToText)

46+

47+instance (FromJSON a, FromText a) => FromJSON (Textual a) where

48+ parseJSON (String s) =

49+ case fromText s of

50+ Just x -> pure (Textual x)

51+ Nothing -> fail $ "Failed to parse value from " ++ Text.unpack s

52+ parseJSON o = Textual <$> parseJSON o

53+

54+instance ToText a => ToJSON (Textual a) where

55+ toJSON (Textual x) = String (toText x)

56+

57+parseJSONObject :: FromJSON a => HashMap Text Value -> Parser a

58+parseJSONObject = parseJSON . Object

59+

60+parseJSONText :: FromText a => String -> Value -> Parser a

61+parseJSONText n = withText n (maybe (fail n) pure . fromText)

62+

63+toJSONText :: ToText a => a -> Value

64+toJSONText = String . toText

core/src/Network/Google/Data/Numeric.hsnew file+61

@@ -0,0 +1,61 @@

1+{-# LANGUAGE DeriveDataTypeable #-}

2+{-# LANGUAGE GeneralizedNewtypeDeriving #-}

3+{-# LANGUAGE ScopedTypeVariables #-}

5+-- |

6+-- Module : Network.Google.Data.Numeric

8+-- License : Mozilla Public License, v. 2.0.

9+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

10+-- Stability : provisional

11+-- Portability : non-portable (GHC extensions)

12+--

13+module Network.Google.Data.Numeric

14+ ( Nat (..)

15+ ) where

16+

17+import Control.Lens

18+import Control.Monad

19+import Data.Aeson

20+import Data.Data

21+import Data.Scientific

22+import Data.Text (Text)

23+import qualified Data.Text as Text

24+import qualified Data.Text.Lazy as LText

25+import Data.Text.Lazy.Builder (Builder)

26+import qualified Data.Text.Lazy.Builder as Build

27+import qualified Data.Text.Lazy.Builder.Int as Build

28+import qualified Data.Text.Read as Read

29+import Numeric.Natural

30+import Servant.API

31+

32+newtype Nat = Nat { unNat :: Natural }

33+ deriving (Eq, Ord, Enum, Show, Read, Num, Real, Integral, Data, Typeable)

34+

35+instance FromJSON Nat where

36+ parseJSON = parseJSON >=> go

37+ where

38+ go n = case floatingOrInteger n of

39+ Left (_ :: Double) -> fail (floatErr n)

40+ Right i

41+ | n < 0 -> fail (negateErr n)

42+ | otherwise -> return . Nat $ fromInteger i

43+

44+ floatErr = mappend "Cannot convert float to Natural: " . show

45+ negateErr = mappend "Cannot convert negative number to Natural: " . show

46+

47+instance ToJSON Nat where

48+ toJSON = Number . flip scientific 0 . toInteger . unNat

49+

50+instance ToText Nat where

51+ toText = shortText . Build.decimal

52+

53+instance FromText Nat where

54+ fromText t =

55+ case Read.decimal t of

56+ Right (x, r) | Text.null r

57+ -> Just x

58+ _ -> Nothing

59+

60+shortText :: Builder -> Text

61+shortText = LText.toStrict . Build.toLazyTextWith 32

core/src/Network/Google/Data/Time.hsnew file+125

@@ -0,0 +1,125 @@

1+{-# LANGUAGE DeriveDataTypeable #-}

2+{-# LANGUAGE DeriveGeneric #-}

3+{-# LANGUAGE GeneralizedNewtypeDeriving #-}

5+-- |

6+-- Module : Network.Google.Data.Time

8+-- License : Mozilla Public License, v. 2.0.

9+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

10+-- Stability : provisional

11+-- Portability : non-portable (GHC extensions)

12+--

13+module Network.Google.Data.Time

14+ ( Time' (..)

15+ , Date' (..)

16+ , DateTime' (..)

17+

18+ , _Time

19+ , _Date

20+ , _DateTime

21+ ) where

22+

23+import Control.Lens

24+import Data.Aeson

25+import Data.Aeson.Encode

26+import qualified Data.Aeson.Types as Aeson

27+import Data.Attoparsec.Text

28+import Data.Bits ((.&.))

29+import Data.Char (ord)

30+import Data.Data (Data, Typeable)

31+import Data.Text (Text)

32+import qualified Data.Text as Text

33+import qualified Data.Text.Lazy as LText

34+import qualified Data.Text.Lazy.Builder as Build

35+import Data.Time

36+import GHC.Generics

37+import Servant.Common.Text

38+

39+-- | This SHOULD be a time in the format of hh:mm:ss. It is

40+-- recommended that you use the "date-time" format instead of "time"

41+-- unless you need to transfer only the time part.

42+newtype Time' = Time' TimeOfDay

43+ deriving (Eq, Ord, Show, Read, Generic, Data, Typeable)

44+

45+_Time :: Iso' Time' TimeOfDay

46+_Time = iso (\(Time' t) -> t) Time'

47+

48+-- | This SHOULD be a date in the format of YYYY-MM-DD. It is

49+-- recommended that you use the "date-time" format instead of "date"

50+-- unless you need to transfer only the date part.

51+newtype Date' = Date' Day

52+ deriving (Eq, Ord, Show, Read, Generic, Data, Typeable)

53+

54+_Date :: Iso' Date' Day

55+_Date = iso (\(Date' t) -> t) Date'

56+

57+-- | This SHOULD be a date in ISO 8601 format of YYYY-MM-

58+-- DDThh:mm:ssZ in UTC time. This is the recommended form of date/timestamp.

59+newtype DateTime' = DateTime' UTCTime

60+ deriving (Eq, Ord, Show, Read, Generic, Data, Typeable)

61+

62+_DateTime :: Iso' DateTime' UTCTime

63+_DateTime = iso (\(DateTime' t) -> t) DateTime'

64+

65+instance FromText Time' where fromText = fmap Time' . parseText timeParser

66+instance FromText Date' where fromText = fmap Date' . parseText dayParser

67+instance FromText DateTime' where fromText = Aeson.parseMaybe parseJSON . String

68+

69+instance FromJSON Time' where

70+ parseJSON = fmap Time' . withText "time" (run timeParser)

71+

72+instance FromJSON Date' where

73+ parseJSON = fmap Date' . withText "date" (run dayParser)

74+

75+instance FromJSON DateTime' where

76+ parseJSON = fmap DateTime' . parseJSON

77+

78+-- FIXME: Revisit once aeson-0.10 is more widely available.

79+instance ToText Time' where toText = Text.pack . show . view _Time

80+instance ToText Date' where toText = Text.pack . show . view _Date

81+instance ToText DateTime' where toText = encodeText

82+

83+-- FIXME: Revisit once aeson-0.10 is more widely available.

84+instance ToJSON Time' where toJSON = String . toText

85+instance ToJSON Date' where toJSON = String . toText

86+instance ToJSON DateTime' where toJSON = toJSON . view _DateTime

87+

88+parseText :: Parser a -> Text -> Maybe a

89+parseText p = either (const Nothing) Just . parseOnly p

90+

91+encodeText :: ToJSON a => a -> Text

92+encodeText = LText.toStrict . Build.toLazyText . encodeToTextBuilder . toJSON

93+

94+-- | Parse a time of the form @HH:MM:SS@.

95+timeParser :: Parser TimeOfDay

96+timeParser = do

97+ h <- twoDigits <* char ':'

98+ m <- twoDigits <* char ':'

99+ s <- twoDigits <&> fromIntegral

100+ if h < 24 && m < 60 && s < 61

101+ then pure (TimeOfDay h m s)

102+ else fail "invalid time"

103+

104+-- | Parse a date of the form @YYYY-MM-DD@.

105+dayParser :: Parser Day

106+dayParser = do

107+ y <- decimal <* char '-'

108+ m <- twoDigits <* char '-'

109+ d <- twoDigits

110+ maybe (fail "invalid date") pure (fromGregorianValid y m d)

111+

112+-- | Parse a two-digit integer (e.g. day of month, hour).

113+twoDigits :: Parser Int

114+twoDigits = do

115+ a <- digit

116+ b <- digit

117+ let c2d c = ord c .&. 15

118+ pure $! c2d a * 10 + c2d b

119+

120+-- | Run an attoparsec parser as an aeson parser.

121+run :: Parser a -> Text -> Aeson.Parser a

122+run p t =

123+ case parseOnly (p <* endOfInput) t of

124+ Left err -> fail $ "could not parse date: " ++ err

125+ Right r -> pure r

core/src/Network/Google/Prelude.hsnew file+35

@@ -0,0 +1,35 @@

1+-- |

2+-- Module : Network.Google.Prelude

4+-- License : Mozilla Public License, v. 2.0.

5+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

6+-- Stability : provisional

7+-- Portability : non-portable (GHC extensions)

8+--

9+module Network.Google.Prelude

10+ ( module Export

11+ ) where

12+

13+import Control.Applicative as Export (pure, (<$>), (<*>))

14+import Control.Lens as Export (Lens', lens, mapping,

15+ ( # ), (^.), _Just)

16+import Data.Data as Export (Data, Typeable)

17+import Data.Hashable as Export

18+import Data.HashMap.Strict as Export (HashMap)

19+import Data.Int as Export (Int32, Int64)

20+import Data.Maybe as Export

21+import Data.Monoid as Export (mempty, (<>))

22+import Data.Proxy as Export

23+import Data.Text as Export (Text)

24+import Data.Time as Export (Day, TimeOfDay, UTCTime)

25+import Data.Word as Export (Word32, Word64, Word8)

26+import GHC.Generics as Export (Generic)

27+import Network.Google.Data.JSON as Export

28+import Network.Google.Data.Numeric as Export

29+import Network.Google.Data.Time as Export

30+import Network.Google.Types as Export

31+import Network.HTTP.Client as Export (RequestBody)

32+import Numeric.Natural as Export (Natural)

33+import Prelude as Export hiding (product)

34+import Servant.API as Export hiding (getResponse)

35+import Servant.Utils.Links as Export hiding (Link)

core/src/Network/Google/Types.hsnew file+542

@@ -0,0 +1,542 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE GeneralizedNewtypeDeriving #-}

6+{-# LANGUAGE LambdaCase #-}

7+{-# LANGUAGE MultiParamTypeClasses #-}

8+{-# LANGUAGE OverloadedStrings #-}

9+{-# LANGUAGE RecordWildCards #-}

10+{-# LANGUAGE ScopedTypeVariables #-}

11+{-# LANGUAGE TupleSections #-}

12+{-# LANGUAGE TypeFamilies #-}

13+{-# LANGUAGE TypeOperators #-}

14+{-# LANGUAGE UndecidableInstances #-}

15+

16+-- |

17+-- Module : Network.Google.Types

19+-- License : Mozilla Public License, v. 2.0.

20+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

21+-- Stability : provisional

22+-- Portability : non-portable (GHC extensions)

23+--

24+module Network.Google.Types where

25+

26+import Control.Applicative

27+import Control.Exception.Lens (exception)

28+import Control.Lens hiding (coerce)

29+import Control.Monad.Catch

30+import Control.Monad.Trans.Resource

31+import Data.Aeson

32+import Data.ByteString (ByteString)

33+import qualified Data.ByteString.Char8 as BS8

34+import qualified Data.ByteString.Lazy as LBS

35+import qualified Data.CaseInsensitive as CI

36+import Data.Coerce

37+import Data.Conduit

38+import qualified Data.Conduit.List as CL

39+import Data.Data

40+import Data.DList (DList)

41+import qualified Data.DList as DList

42+import Data.Foldable (foldl')

43+import Data.Monoid

44+import Data.String

45+import Data.Text (Text)

46+import qualified Data.Text.Encoding as Text

47+import Data.Text.Lazy.Builder (Builder)

48+import qualified Data.Text.Lazy.Builder as Build

49+import GHC.Generics

50+import GHC.TypeLits

51+import Network.HTTP.Client (HttpException, RequestBody (..))

52+import Network.HTTP.Media hiding (Accept)

53+import Network.HTTP.Types hiding (Header)

54+import qualified Network.HTTP.Types as HTTP

55+import Servant.API

56+

57+data AltJSON = AltJSON

58+ deriving (Eq, Ord, Show, Read, Generic, Typeable)

59+

60+instance ToText AltJSON where

61+ toText = const "json"

62+

63+data AltMedia = AltMedia

64+ deriving (Eq, Ord, Show, Read, Generic, Typeable)

65+

66+instance ToText AltMedia where

67+ toText = const "media"

68+

69+newtype AuthKey = AuthKey Text

70+ deriving (Eq, Ord, Show, Read, Generic, Typeable, ToText, FromJSON, ToJSON)

71+

72+newtype OAuthScope = OAuthScope { scopeToText :: Text }

73+ deriving (Eq, Ord, Show, Read, IsString, Generic, Typeable, ToText, FromJSON, ToJSON)

74+

75+newtype OAuthToken = OAuthToken { tokenToBS :: ByteString }

76+ deriving (Eq, Ord, Show, Read, IsString, Generic, Typeable)

77+

78+instance FromJSON OAuthToken where

79+ parseJSON = withText "oauth_token" (pure . OAuthToken . Text.encodeUtf8)

80+

81+instance ToJSON OAuthToken where

82+ toJSON = toJSON . Text.decodeUtf8 . tokenToBS

83+

84+newtype MediaDownload a = MediaDownload a

85+

86+data MediaUpload a = MediaUpload a RequestBody

87+

88+_Coerce :: (Coercible a b, Coercible b a) => Iso' a b

89+_Coerce = iso coerce coerce

90+

91+-- | Invalid Iso, exists for ease of composition with the current 'Lens . Iso'

92+-- chaining to hide internal types from the user.

93+_Default :: Monoid a => Iso' (Maybe a) a

94+_Default = iso f Just

95+ where

96+ f (Just x) = x

97+ f Nothing = mempty

98+

99+type Stream = ResumableSource (ResourceT IO) ByteString

100+

101+newtype ClientId = ClientId { clientIdToText :: Text }

102+ deriving (Eq, Ord, Show, Read, IsString, Generic, Typeable, ToText, FromJSON, ToJSON)

103+

104+newtype ServiceId = ServiceId { serviceIdToText :: Text }

105+ deriving (Eq, Ord, Show, Read, IsString, Generic, Typeable, ToText, FromJSON, ToJSON)

106+

107+data Error

108+ = TransportError HttpException

109+ | SerializeError SerializeError

110+ | ServiceError ServiceError

111+ deriving (Show, Typeable)

112+

113+instance Exception Error

114+

115+data SerializeError = SerializeError'

116+ { _serializeId :: !ServiceId

117+ , _serializeHeaders :: [HTTP.Header]

118+ , _serializeStatus :: !Status

119+ , _serializeMessage :: !String

120+ , _serializeBody :: !(Maybe LBS.ByteString)

121+ } deriving (Eq, Show, Typeable)

122+

123+data ServiceError = ServiceError'

124+ { _serviceId :: !ServiceId

125+ , _serviceStatus :: !Status

126+ , _serviceHeaders :: ![HTTP.Header]

127+ , _serviceBody :: !(Maybe LBS.ByteString)

128+ } deriving (Eq, Show, Typeable)

129+

130+class AsError a where

131+ -- | A general Amazonka error.

132+ _Error :: Prism' a Error

133+ {-# MINIMAL _Error #-}

134+

135+ -- | An error occured while communicating over HTTP with a remote service.

136+ _TransportError :: Prism' a HttpException

137+

138+ -- | A serialisation error occured when attempting to deserialise a response.

139+ _SerializeError :: Prism' a SerializeError

140+

141+ -- | A service specific error returned by the remote service.

142+ _ServiceError :: Prism' a ServiceError

143+

144+ _TransportError = _Error . _TransportError

145+ _SerializeError = _Error . _SerializeError

146+ _ServiceError = _Error . _ServiceError

147+

148+instance AsError SomeException where

149+ _Error = exception

150+

151+instance AsError Error where

152+ _Error = id

153+

154+ _TransportError = prism TransportError $ \case

155+ TransportError e -> Right e

156+ x -> Left x

157+

158+ _SerializeError = prism SerializeError $ \case

159+ SerializeError e -> Right e

160+ x -> Left x

161+

162+ _ServiceError = prism ServiceError $ \case

163+ ServiceError e -> Right e

164+ x -> Left x

165+

166+data Service = Service

167+ { _svcId :: !ServiceId

168+ , _svcHost :: !ByteString

169+ , _svcPath :: !Builder

170+ , _svcPort :: !Int

171+ , _svcSecure :: !Bool

172+ , _svcTimeout :: !(Maybe Seconds)

173+ }

174+

175+defaultService :: ServiceId -> ByteString -> Service

176+defaultService i h = Service

177+ { _svcId = i

178+ , _svcHost = h

179+ , _svcPath = mempty

180+ , _svcPort = 443

181+ , _svcSecure = True

182+ , _svcTimeout = Just 70

183+ }

184+

185+serviceHost :: Lens' Service ByteString

186+serviceHost = lens _svcHost (\s a -> s { _svcHost = a })

187+

188+servicePath :: Lens' Service Builder

189+servicePath = lens _svcPath (\s a -> s { _svcPath = a })

190+

191+servicePort :: Lens' Service Int

192+servicePort = lens _svcPort (\s a -> s { _svcPort = a })

193+

194+serviceSecure :: Lens' Service Bool

195+serviceSecure = lens _svcSecure (\s a -> s { _svcSecure = a })

196+

197+serviceTimeout :: Lens' Service (Maybe Seconds)

198+serviceTimeout = lens _svcTimeout (\s a -> s { _svcTimeout = a })

199+

200+-- | A single part of a multipart message.

201+data Part = Part MediaType [(HeaderName, ByteString)] RequestBody

202+

203+data Payload

204+ = Body !MediaType !RequestBody

205+ | Related ![Part]

206+

207+-- | An intermediary request builder.

208+data Request = Request

209+ { _rqPath :: !Builder

210+ , _rqQuery :: !(DList (ByteString, Maybe ByteString))

211+ , _rqHeaders :: !(DList (HeaderName, ByteString))

212+ , _rqBody :: !(Maybe Payload)

213+ }

214+

215+instance Monoid Request where

216+ mempty = Request mempty mempty mempty Nothing

217+ mappend a b = Request

218+ (_rqPath a <> "/" <> _rqPath b)

219+ (_rqQuery a <> _rqQuery b)

220+ (_rqHeaders a <> _rqHeaders b)

221+ (_rqBody b <|> _rqBody a)

222+

223+appendPath :: Request -> Builder -> Request

224+appendPath rq x = rq { _rqPath = _rqPath rq <> "/" <> x }

225+

226+appendPaths :: ToText a => Request -> [a] -> Request

227+appendPaths rq = appendPath rq . foldMap (mappend "/" . buildText)

228+

229+appendQuery :: Request -> ByteString -> Maybe Text -> Request

230+appendQuery rq k v = rq

231+ { _rqQuery = DList.snoc (_rqQuery rq) (k, Text.encodeUtf8 <$> v)

232+ }

233+

234+appendHeader :: Request -> HeaderName -> Maybe Text -> Request

235+appendHeader rq _ Nothing = rq

236+appendHeader rq k (Just v) = rq

237+ { _rqHeaders = DList.snoc (_rqHeaders rq) (k, Text.encodeUtf8 v)

238+ }

239+

240+setBody :: Request -> MediaType -> RequestBody -> Request

241+setBody rq c x = rq { _rqBody = Just (Body c x) }

242+

243+setRelated :: Request -> [Part] -> Request

244+setRelated rq ps = rq { _rqBody = Just (Related ps) }

245+

246+-- | A materialised 'http-client' request and associated response parser.

247+data Client a = Client

248+ { _cliAccept :: !(Maybe MediaType)

249+ , _cliMethod :: !Method

250+ , _cliCheck :: !(Status -> Bool)

251+ , _cliService :: !Service

252+ , _cliRequest :: !Request

253+ , _cliResponse :: !(Stream -> ResourceT IO (Either (String, LBS.ByteString) a))

254+ }

255+

256+clientService :: Lens' (Client a) Service

257+clientService = lens _cliService (\s a -> s { _cliService = a })

258+

259+mime :: FromStream c a => Proxy c -> Method -> [Int] -> Request -> Service -> Client a

260+mime p = client (fromStream p) (Just (contentType p))

261+

262+discard :: Method -> [Int] -> Request -> Service -> Client ()

263+discard = client (\b -> closeResumableSource b >> pure (Right ())) Nothing

264+

265+client :: (Stream -> ResourceT IO (Either (String, LBS.ByteString) a))

266+ -> Maybe MediaType

267+ -> Method

268+ -> [Int]

269+ -> Request

270+ -> Service

271+ -> Client a

272+client f cs m ns rq s = Client

273+ { _cliAccept = cs

274+ , _cliMethod = m

275+ , _cliCheck = (`elem` ns) . fromEnum

276+ , _cliService = s

277+ , _cliRequest = rq

278+ , _cliResponse = f

279+ }

280+

281+class Accept c => ToBody c a where

282+ toBody :: Proxy c -> a -> RequestBody

283+

284+instance ToBody OctetStream RequestBody where

285+ toBody Proxy = id

286+

287+instance ToBody OctetStream ByteString where

288+ toBody Proxy = RequestBodyBS

289+

290+instance ToBody OctetStream LBS.ByteString where

291+ toBody Proxy = RequestBodyLBS

292+

293+instance ToBody PlainText ByteString where

294+ toBody Proxy = RequestBodyBS

295+

296+instance ToBody PlainText LBS.ByteString where

297+ toBody Proxy = RequestBodyLBS

298+

299+instance ToJSON a => ToBody JSON a where

300+ toBody Proxy = RequestBodyLBS . encode

301+

302+class Accept c => FromStream c a where

303+ fromStream :: Proxy c

304+ -> Stream

305+ -> ResourceT IO (Either (String, LBS.ByteString) a)

306+

307+instance FromStream OctetStream Stream where

308+ fromStream Proxy = pure . Right

309+

310+instance FromJSON a => FromStream JSON a where

311+ fromStream Proxy s = do

312+ bs <- sinkLBS s

313+ case eitherDecode bs of

314+ Left e -> pure $! Left (e, bs)

315+ Right x -> pure $! Right x

316+

317+class GoogleRequest a where

318+ type Rs a :: *

319+

320+ requestClient :: a -> Client (Rs a)

321+

322+class GoogleClient fn where

323+ type Fn fn :: *

324+

325+ buildClient :: Proxy fn -> Request -> Fn fn

326+

327+-- | Multiple path captures, with @[xs]@ forming @/<x1>/<x2>/<x2>/...@.

328+data Captures (s :: Symbol) a

329+ deriving (Typeable)

330+

331+-- | Form a Google style sub-resource, such as @/<capture>:<mode>@.

332+data CaptureMode (s :: Symbol) (m :: Symbol) a

333+ deriving (Typeable)

334+

335+data MultipartRelated (cs :: [*]) m b

336+ deriving (Typeable)

337+

338+instance ( ToBody c m

339+ , ToBody OctetStream b

340+ , GoogleClient fn

341+ ) => GoogleClient (MultipartRelated (c ': cs) m b :> fn) where

342+ type Fn (MultipartRelated (c ': cs) m b :> fn) = m -> b -> Fn fn

343+

344+ buildClient Proxy rq m b = buildClient (Proxy :: Proxy fn) $

345+ setRelated rq

346+ [ Part (contentType mc) [] (toBody mc m)

347+ , Part (contentType mb) [] (toBody mb b)

348+ ]

349+ where

350+ mc = Proxy :: Proxy c

351+ mb = Proxy :: Proxy OctetStream

352+

353+instance (KnownSymbol s, GoogleClient fn) => GoogleClient (s :> fn) where

354+ type Fn (s :> fn) = Fn fn

355+

356+ buildClient Proxy rq = buildClient (Proxy :: Proxy fn) $

357+ appendPath rq (buildSymbol (Proxy :: Proxy s))

358+

359+instance (GoogleClient a, GoogleClient b) => GoogleClient (a :<|> b) where

360+ type Fn (a :<|> b) = Fn a :<|> Fn b

361+

362+ buildClient Proxy rq =

363+ buildClient (Proxy :: Proxy a) rq

364+ :<|> buildClient (Proxy :: Proxy b) rq

365+

366+instance ( KnownSymbol s

367+ , ToText a

368+ , GoogleClient fn

369+ ) => GoogleClient (Capture s a :> fn) where

370+ type Fn (Capture s a :> fn) = a -> Fn fn

371+

372+ buildClient Proxy rq = buildClient (Proxy :: Proxy fn)

373+ . appendPath rq

374+ . buildText

375+

376+instance ( KnownSymbol s

377+ , ToText a

378+ , GoogleClient fn

379+ ) => GoogleClient (Captures s a :> fn) where

380+ type Fn (Captures s a :> fn) = [a] -> Fn fn

381+

382+ buildClient Proxy rq = buildClient (Proxy :: Proxy fn)

383+ . appendPaths rq

384+

385+instance ( KnownSymbol s

386+ , KnownSymbol m

387+ , ToText a

388+ , GoogleClient fn

389+ ) => GoogleClient (CaptureMode s m a :> fn) where

390+ type Fn (CaptureMode s m a :> fn) = a -> Fn fn

391+

392+ buildClient Proxy rq x = buildClient (Proxy :: Proxy fn)

393+ . appendPath rq

394+ $ buildText x <> buildSymbol (Proxy :: Proxy m)

395+

396+instance ( KnownSymbol s

397+ , ToText a

398+ , GoogleClient fn

399+ ) => GoogleClient (QueryParam s a :> fn) where

400+ type Fn (QueryParam s a :> fn) = Maybe a -> Fn fn

401+

402+ buildClient Proxy rq mx = buildClient (Proxy :: Proxy fn) $

403+ case mx of

404+ Nothing -> rq

405+ Just x -> appendQuery rq k v

406+ where

407+ k = byteSymbol (Proxy :: Proxy s)

408+ v = Just (toText x)

409+

410+instance ( KnownSymbol s

411+ , ToText a

412+ , GoogleClient fn

413+ ) => GoogleClient (QueryParams s a :> fn) where

414+ type Fn (QueryParams s a :> fn) = [a] -> Fn fn

415+

416+ buildClient Proxy rq = buildClient (Proxy :: Proxy fn) . foldl' go rq

417+ where

418+ go r = appendQuery r k . Just . toText

419+

420+ k = byteSymbol (Proxy :: Proxy s)

421+

422+instance ( KnownSymbol s

423+ , ToText a

424+ , GoogleClient fn

425+ ) => GoogleClient (Header s a :> fn) where

426+ type Fn (Header s a :> fn) = Maybe a -> Fn fn

427+

428+ buildClient Proxy rq mx = buildClient (Proxy :: Proxy fn) $

429+ case mx of

430+ Nothing -> rq

431+ Just x -> appendHeader rq (CI.mk k) v

432+ where

433+ k = byteSymbol (Proxy :: Proxy s)

434+ v = Just (toText x)

435+

436+instance ( ToBody c a

437+ , GoogleClient fn

438+ ) => GoogleClient (ReqBody (c ': cs) a :> fn) where

439+ type Fn (ReqBody (c ': cs) a :> fn) = a -> Fn fn

440+

441+ buildClient Proxy rq = buildClient (Proxy :: Proxy fn)

442+ . setBody rq (contentType p)

443+ . toBody p

444+ where

445+ p = Proxy :: Proxy c

446+

447+instance {-# OVERLAPPABLE #-}

448+ FromStream c a => GoogleClient (Get (c ': cs) a) where

449+ type Fn (Get (c ': cs) a) = Service -> Client a

450+

451+ buildClient Proxy = mime (Proxy :: Proxy c) methodGet [200, 203]

452+

453+instance {-# OVERLAPPING #-}

454+ GoogleClient (Get (c ': cs) ()) where

455+ type Fn (Get (c ': cs) ()) = Service -> Client ()

456+

457+ buildClient Proxy = discard methodGet [204]

458+

459+instance {-# OVERLAPPABLE #-}

460+ (FromStream c a, cs' ~ (c ': cs)) => GoogleClient (Post cs' a) where

461+ type Fn (Post cs' a) = Service -> Client a

462+

463+ buildClient Proxy = mime (Proxy :: Proxy c) methodPost [200, 201]

464+

465+instance {-# OVERLAPPING #-}

466+ GoogleClient (Post cs ()) where

467+ type Fn (Post cs ()) = Service -> Client ()

468+

469+ buildClient Proxy = discard methodPost [204]

470+

471+instance {-# OVERLAPPABLE #-}

472+ FromStream c a => GoogleClient (Put (c ': cs) a) where

473+ type Fn (Put (c ': cs) a) = Service -> Client a

474+

475+ buildClient Proxy = mime (Proxy :: Proxy c) methodPut [200, 201]

476+

477+instance {-# OVERLAPPING #-}

478+ GoogleClient (Put (c ': cs) ()) where

479+ type Fn (Put (c ': cs) ()) = Service -> Client ()

480+

481+ buildClient Proxy = discard methodPut [204]

482+

483+instance {-# OVERLAPPABLE #-}

484+ FromStream c a => GoogleClient (Patch (c ': cs) a) where

485+ type Fn (Patch (c ': cs) a) = Service -> Client a

486+

487+ buildClient Proxy = mime (Proxy :: Proxy c) methodPatch [200, 201]

488+

489+instance {-# OVERLAPPING #-}

490+ GoogleClient (Patch (c ': cs) ()) where

491+ type Fn (Patch (c ': cs) ()) = Service -> Client ()

492+

493+ buildClient Proxy = discard methodPatch [204]

494+

495+instance {-# OVERLAPPABLE #-}

496+ FromStream c a => GoogleClient (Delete (c ': cs) a) where

497+ type Fn (Delete (c ': cs) a) = Service -> Client a

498+

499+ buildClient Proxy = mime (Proxy :: Proxy c) methodDelete [200, 202]

500+

501+instance {-# OVERLAPPING #-}

502+ GoogleClient (Delete (c ': cs) ()) where

503+ type Fn (Delete (c ': cs) ()) = Service -> Client ()

504+

505+ buildClient Proxy = discard methodDelete [204]

506+

507+sinkLBS :: Stream -> ResourceT IO LBS.ByteString

508+sinkLBS = fmap LBS.fromChunks . ($$+- CL.consume)

509+

510+buildText :: ToText a => a -> Builder

511+buildText = Build.fromText . toText

512+

513+buildSymbol :: forall n proxy. KnownSymbol n => proxy n -> Builder

514+buildSymbol = Build.fromString . symbolVal

515+

516+byteSymbol :: forall n proxy. KnownSymbol n => proxy n -> ByteString

517+byteSymbol = BS8.pack . symbolVal

518+

519+-- | An integral value representing seconds.

520+newtype Seconds = Seconds Int

521+ deriving

522+ ( Eq

523+ , Ord

524+ , Read

525+ , Show

526+ , Enum

527+ , Num

528+ , Bounded

529+ , Integral

530+ , Real

531+ , Data

532+ , Typeable

533+ , Generic

534+ )

535+

536+seconds :: Seconds -> Int

537+seconds (Seconds n)

538+ | n < 0 = 0

539+ | otherwise = n

540+

541+microseconds :: Seconds -> Int

542+microseconds = (1000000 *) . seconds

core/test/Main.hsnew file+16

@@ -0,0 +1,16 @@

1+-- Module : Main

3+-- License : Mozilla Public License, v. 2.0.

4+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

5+-- Stability : experimental

6+-- Portability : non-portable (GHC extensions)

8+module Main (main) where

10+import Test.Tasty

11+

12+main :: IO ()

13+main = defaultMain $

14+ testGroup "gogol"

15+ [

16+ ]

examples/LICENSEnew file+367