twitter-types 0.3.20140620 → 0.3.20140801
raw patch · 3 files changed
+20/−1 lines, 3 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
+ Web.Twitter.Types: dmCoordinates :: DirectMessage -> Maybe Coordinates
+ Web.Twitter.Types: rsCoordinates :: RetweetedStatus -> Maybe Coordinates
+ Web.Twitter.Types: searchStatusCoordinates :: SearchStatus -> Maybe Coordinates
+ Web.Twitter.Types.Lens: dmCoordinates :: SimpleLens (DirectMessage) (Maybe Coordinates)
+ Web.Twitter.Types.Lens: geolocation :: AsStatus s => SimpleLens s (Maybe Coordinates)
+ Web.Twitter.Types.Lens: rsCoordinates :: SimpleLens (RetweetedStatus) (Maybe Coordinates)
+ Web.Twitter.Types.Lens: searchStatusCoordinates :: SimpleLens (SearchStatus) (Maybe Coordinates)
+ Web.Twitter.Types.Lens: statusCoordinates :: SimpleLens (Status) (Maybe Coordinates)
- Web.Twitter.Types: DirectMessage :: DateString -> Text -> User -> Text -> Text -> StatusId -> User -> UserId -> UserId -> DirectMessage
+ Web.Twitter.Types: DirectMessage :: DateString -> Text -> User -> Text -> Text -> StatusId -> User -> UserId -> UserId -> Maybe Coordinates -> DirectMessage
- Web.Twitter.Types: RetweetedStatus :: DateString -> StatusId -> Text -> Text -> Bool -> Maybe Entities -> User -> Status -> RetweetedStatus
+ Web.Twitter.Types: RetweetedStatus :: DateString -> StatusId -> Text -> Text -> Bool -> Maybe Entities -> User -> Status -> Maybe Coordinates -> RetweetedStatus
- Web.Twitter.Types: SearchStatus :: DateString -> StatusId -> Text -> Text -> User -> SearchStatus
+ Web.Twitter.Types: SearchStatus :: DateString -> StatusId -> Text -> Text -> User -> Maybe Coordinates -> SearchStatus
Files
- Web/Twitter/Types.hs +6/−0
- Web/Twitter/Types/Lens.hs +13/−0
- twitter-types.cabal +1/−1
Web/Twitter/Types.hs view
@@ -143,6 +143,7 @@ , searchStatusText :: Text , searchStatusSource :: Text , searchStatusUser :: User+ , searchStatusCoordinates :: Maybe Coordinates } deriving (Show, Eq) instance FromJSON SearchStatus where@@ -152,6 +153,7 @@ <*> o .: "text" <*> o .: "source" <*> o .: "user"+ <*> o .:? "coordinates" parseJSON _ = mzero data SearchMetadata =@@ -190,6 +192,7 @@ , rsEntities :: Maybe Entities , rsUser :: User , rsRetweetedStatus :: Status+ , rsCoordinates :: Maybe Coordinates } deriving (Show, Eq) instance FromJSON RetweetedStatus where@@ -202,6 +205,7 @@ <*> o .:? "entities" <*> o .: "user" <*> o .: "retweeted_status"+ <*> o .:? "coordinates" parseJSON _ = mzero data DirectMessage =@@ -215,6 +219,7 @@ , dmRecipient :: User , dmRecipientId :: UserId , dmSenderId :: UserId+ , dmCoordinates :: Maybe Coordinates } deriving (Show, Eq) instance FromJSON DirectMessage where@@ -228,6 +233,7 @@ <*> o .: "recipient" <*> o .: "recipient_id" <*> o .: "sender_id"+ <*> o .:? "coordinates" parseJSON _ = mzero data EventType = Favorite | Unfavorite
Web/Twitter/Types/Lens.hs view
@@ -49,6 +49,7 @@ , statusFavoriteCount , statusLang , statusPossiblySensitive+ , statusCoordinates , searchResultStatuses , searchResultSearchMetadata@@ -58,6 +59,7 @@ , searchStatusText , searchStatusSource , searchStatusUser+ , searchStatusCoordinates , searchMetadataMaxId , searchMetadataSinceId@@ -77,6 +79,7 @@ , rsEntities , rsUser , rsRetweetedStatus+ , rsCoordinates , dmCreatedAt , dmSenderScreenName@@ -87,6 +90,7 @@ , dmRecipient , dmRecipientId , dmSenderId+ , dmCoordinates , evCreatedAt , evTargetObject@@ -236,6 +240,7 @@ SIMPLE_LENS(statusFavoriteCount , Status, Integer ) SIMPLE_LENS(statusLang , Status, Maybe Text ) SIMPLE_LENS(statusPossiblySensitive , Status, Maybe Bool )+SIMPLE_LENS(statusCoordinates , Status, Maybe Coordinates ) TYPECHANGE_LENS(searchResultStatuses , SearchResult ) SIMPLE_LENS(searchResultSearchMetadata, SearchResult body, SearchMetadata )@@ -245,6 +250,7 @@ SIMPLE_LENS(searchStatusText , SearchStatus, Text ) SIMPLE_LENS(searchStatusSource , SearchStatus, Text ) SIMPLE_LENS(searchStatusUser , SearchStatus, User )+SIMPLE_LENS(searchStatusCoordinates , SearchStatus, Maybe Coordinates ) SIMPLE_LENS(searchMetadataMaxId , SearchMetadata, StatusId ) SIMPLE_LENS(searchMetadataSinceId , SearchMetadata, StatusId )@@ -264,6 +270,7 @@ SIMPLE_LENS(rsEntities , RetweetedStatus, Maybe Entities ) SIMPLE_LENS(rsUser , RetweetedStatus, User ) SIMPLE_LENS(rsRetweetedStatus , RetweetedStatus, Status )+SIMPLE_LENS(rsCoordinates , RetweetedStatus, Maybe Coordinates ) SIMPLE_LENS(dmCreatedAt , DirectMessage, DateString ) SIMPLE_LENS(dmSenderScreenName , DirectMessage, Text )@@ -274,6 +281,7 @@ SIMPLE_LENS(dmRecipient , DirectMessage, User ) SIMPLE_LENS(dmRecipientId , DirectMessage, UserId ) SIMPLE_LENS(dmSenderId , DirectMessage, UserId )+SIMPLE_LENS(dmCoordinates , DirectMessage, Maybe Coordinates ) SIMPLE_LENS(evCreatedAt , Event, DateString ) SIMPLE_LENS(evTargetObject , Event, Maybe EventTarget )@@ -356,30 +364,35 @@ text :: SimpleLens s Text user :: SimpleLens s User created_at :: SimpleLens s DateString+ geolocation :: SimpleLens s (Maybe Coordinates) instance AsStatus Status where status_id = statusId text = statusText user = statusUser created_at = statusCreatedAt+ geolocation = statusCoordinates instance AsStatus SearchStatus where status_id = searchStatusId text = searchStatusText user = searchStatusUser created_at = searchStatusCreatedAt+ geolocation = searchStatusCoordinates instance AsStatus RetweetedStatus where status_id = rsId text = rsText user = rsUser created_at = rsCreatedAt+ geolocation = rsCoordinates instance AsStatus DirectMessage where status_id = dmId text = dmText user = dmSender created_at = dmCreatedAt+ geolocation = dmCoordinates class AsUser u where user_id :: SimpleLens u UserId
twitter-types.cabal view
@@ -1,5 +1,5 @@ name: twitter-types-version: 0.3.20140620+version: 0.3.20140801 license: BSD3 license-file: LICENSE author: Takahiro HIMURA