atndapi 0.1.0.0 → 0.1.1.0
raw patch · 2 files changed
+7/−7 lines, 2 files
Files
- atndapi.cabal +1/−1
- src/Web/ATND/Event.hs +6/−6
atndapi.cabal view
@@ -1,5 +1,5 @@ name: atndapi-version: 0.1.0.0+version: 0.1.1.0 synopsis: An interface of ATND API description: Please see README.md homepage: http://github.com/ynishi/atndapi#readme
src/Web/ATND/Event.hs view
@@ -42,11 +42,11 @@ startedAt :: ATNDTime, endedAt :: ATNDTime, url :: Maybe Text,- limit :: Integer,+ limit :: Maybe Integer, address :: Text, place :: Text,- lat :: Text,- lon :: Text,+ lat :: Maybe Text,+ lon :: Maybe Text, owner :: Web.ATND.Util.Person, accepted :: Integer, waiting :: Integer,@@ -134,11 +134,11 @@ (e >>= (.: "started_at")) <*> (e >>= (.: "ended_at")) <*> (e >>= (.:? "url")) <*>- (e >>= (.: "limit")) <*>+ (e >>= (.:? "limit")) <*> (e >>= (.: "address")) <*> (e >>= (.: "place")) <*>- (e >>= (.: "lat")) <*>- (e >>= (.: "lon")) <*>+ (e >>= (.:? "lat")) <*>+ (e >>= (.:? "lon")) <*> (Web.ATND.Util.Person <$> (e >>= (.: "owner_id")) <*> (e >>= (.: "owner_nickname")) <*>