twitter-types-lens-0.7.2/Web/0000755000000000000000000000000012670754330014235 5ustar0000000000000000twitter-types-lens-0.7.2/Web/Twitter/0000755000000000000000000000000012670754330015677 5ustar0000000000000000twitter-types-lens-0.7.2/Web/Twitter/Types/0000755000000000000000000000000012670754330017003 5ustar0000000000000000twitter-types-lens-0.7.2/Web/Twitter/Types/Lens/0000755000000000000000000000000012670754330017704 5ustar0000000000000000twitter-types-lens-0.7.2/Web/Twitter/Types/Lens.hs0000644000000000000000000002137612670754330020251 0ustar0000000000000000{-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE CPP #-} {-# LANGUAGE FlexibleInstances #-} module Web.Twitter.Types.Lens ( -- * Type classes AsStatus(..) , AsUser(..) , HasCreatedAt(..) , AsImageSize(..) -- * 'TT.Status' , TT.Status , statusContributors , statusCoordinates , statusCreatedAt , statusCurrentUserRetweet , statusEntities , statusExtendedEntities , statusFavoriteCount , statusFavorited , statusFilterLevel , statusId , statusInReplyToScreenName , statusInReplyToStatusId , statusInReplyToUserId , statusLang , statusPlace , statusPossiblySensitive , statusScopes , statusQuotedStatusId , statusQuotedStatus , statusRetweetCount , statusRetweeted , statusRetweetedStatus , statusSource , statusText , statusTruncated , statusUser , statusWithheldCopyright , statusWithheldInCountries , statusWithheldScope -- * 'TT.SearchResult' , TT.SearchResult , searchResultStatuses , searchResultSearchMetadata -- * 'TT.SearchStatus' , TT.SearchStatus , searchStatusCreatedAt , searchStatusId , searchStatusText , searchStatusSource , searchStatusUser , searchStatusCoordinates -- * 'TT.SearchMetadata' , TT.SearchMetadata , searchMetadataMaxId , searchMetadataSinceId , searchMetadataRefreshURL , searchMetadataNextResults , searchMetadataCount , searchMetadataCompletedIn , searchMetadataSinceIdStr , searchMetadataQuery , searchMetadataMaxIdStr -- * 'TT.RetweetedStatus' , TT.RetweetedStatus , rsCreatedAt , rsId , rsText , rsSource , rsTruncated , rsEntities , rsUser , rsRetweetedStatus , rsCoordinates -- * 'TT.DirectMessage' , TT.DirectMessage , dmCreatedAt , dmSenderScreenName , dmSender , dmText , dmRecipientScreeName , dmId , dmRecipient , dmRecipientId , dmSenderId , dmCoordinates -- * 'TT.Event' , TT.Event , evCreatedAt , evTargetObject , evEvent , evTarget , evSource -- * 'TT.Delete' , TT.Delete , delId , delUserId -- * 'TT.User' , TT.User , userContributorsEnabled , userCreatedAt , userDefaultProfile , userDefaultProfileImage , userDescription , userFavoritesCount , userFollowRequestSent , userFollowing , userFollowersCount , userFriendsCount , userGeoEnabled , userId , userIsTranslator , userLang , userListedCount , userLocation , userName , userNotifications , userProfileBackgroundColor , userProfileBackgroundImageURL , userProfileBackgroundImageURLHttps , userProfileBackgroundTile , userProfileBannerURL , userProfileImageURL , userProfileImageURLHttps , userProfileLinkColor , userProfileSidebarBorderColor , userProfileSidebarFillColor , userProfileTextColor , userProfileUseBackgroundImage , userProtected , userScreenName , userShowAllInlineMedia , userStatusesCount , userTimeZone , userURL , userUtcOffset , userVerified , userWithheldInCountries , userWithheldScope -- * 'TT.List' , TT.List , listId , listName , listFullName , listMemberCount , listSubscriberCount , listMode , listUser -- * 'TT.Entities' , TT.Entities , enHashTags , enUserMentions , enURLs , enMedia -- * 'TT.Entity' , TT.Entity , entityBody , entityIndices -- * 'TT.HashTagEntity' , TT.HashTagEntity , hashTagText -- * 'TT.UserEntity' , TT.UserEntity , userEntityUserId , userEntityUserName , userEntityUserScreenName -- * 'TT.URLEntity' , TT.URLEntity , ueURL , ueExpanded , ueDisplay -- * 'TT.MediaEntity' , TT.MediaEntity , meType , meId , meSizes , meMediaURL , meMediaURLHttps , meURL -- * 'TT.MediaSize' , TT.MediaSize , msWidth , msHeight , msResize -- * 'TT.Coordinates' , TT.Coordinates , coordinates , coordinatesType -- * 'TT.Place' , TT.Place , placeAttributes , placeBoundingBox , placeCountry , placeCountryCode , placeFullName , placeId , placeName , placeType , placeURL -- * 'TT.BoundingBox' , TT.BoundingBox , boundingBoxCoordinates , boundingBoxType -- * 'TT.Contributor' , TT.Contributor , contributorId , contributorScreenName -- * 'TT.UploadedMedia' , TT.UploadedMedia , uploadedMediaId , uploadedMediaSize , uploadedMediaImage -- * 'TT.ImageSizeType' , TT.ImageSizeType , imageSizeTypeWidth , imageSizeTypeHeight , imageSizeTypeType -- * Type aliases and sum types , TT.UserId , TT.Friends , TT.URIString , TT.UserName , TT.StatusId , TT.LanguageCode , TT.StreamingAPI(..) , TT.EventTarget(..) , TT.EntityIndices -- * 'TT.StreamingAPI' , _SStatus , _SRetweetedStatus , _SEvent , _SDelete , _SFriends , _SDirectMessage , _SUnknown -- * 'TT.EventTarget' , _ETUser , _ETStatus , _ETList , _ETUnknown ) where import Control.Lens hiding (makeLenses) import Data.Text (Text) import Data.Time import qualified Web.Twitter.Types as TT import Web.Twitter.Types.Lens.TH makeLenses ''TT.Status makeLenses ''TT.SearchResult makeLenses ''TT.SearchStatus makeLenses ''TT.SearchMetadata makeLenses ''TT.RetweetedStatus makeLenses ''TT.DirectMessage makeLenses ''TT.Event makeLenses ''TT.Delete makeLenses ''TT.User makeLenses ''TT.List makeLenses ''TT.Entities makeLenses ''TT.Entity makeLenses ''TT.HashTagEntity makeLenses ''TT.UserEntity makeLenses ''TT.URLEntity makeLenses ''TT.MediaEntity makeLenses ''TT.MediaSize makeLenses ''TT.Coordinates makeLenses ''TT.Place makeLenses ''TT.BoundingBox makeLenses ''TT.Contributor makeLenses ''TT.ImageSizeType makeLenses ''TT.UploadedMedia class AsStatus s where status_id :: Lens' s TT.StatusId text :: Lens' s Text user :: Lens' s TT.User geolocation :: Lens' s (Maybe TT.Coordinates) instance AsStatus TT.Status where status_id = statusId text = statusText user = statusUser geolocation = statusCoordinates instance AsStatus TT.SearchStatus where status_id = searchStatusId text = searchStatusText user = searchStatusUser geolocation = searchStatusCoordinates instance AsStatus TT.RetweetedStatus where status_id = rsId text = rsText user = rsUser geolocation = rsCoordinates instance AsStatus TT.DirectMessage where status_id = dmId text = dmText user = dmSender geolocation = dmCoordinates class AsUser u where user_id :: Lens' u TT.UserId name :: Lens' u TT.UserName screen_name :: Lens' u Text instance AsUser TT.User where user_id = userId name = userName screen_name = userScreenName instance AsUser TT.UserEntity where user_id = userEntityUserId name = userEntityUserName screen_name = userEntityUserScreenName instance AsUser (TT.Entity TT.UserEntity) where user_id = entityBody.userEntityUserId name = entityBody.userEntityUserName screen_name = entityBody.userEntityUserScreenName class HasCreatedAt a where created_at :: Lens' a UTCTime instance HasCreatedAt TT.Status where created_at = statusCreatedAt instance HasCreatedAt TT.SearchStatus where created_at = searchStatusCreatedAt instance HasCreatedAt TT.RetweetedStatus where created_at = rsCreatedAt instance HasCreatedAt TT.DirectMessage where created_at = dmCreatedAt instance HasCreatedAt TT.User where created_at = userCreatedAt class AsImageSize a where width :: Lens' a Int height :: Lens' a Int instance AsImageSize TT.MediaSize where width = msWidth height = msHeight instance AsImageSize TT.ImageSizeType where width = imageSizeTypeWidth height = imageSizeTypeHeight makePrisms ''TT.StreamingAPI makePrisms ''TT.EventTarget twitter-types-lens-0.7.2/Web/Twitter/Types/Lens/TH.hs0000644000000000000000000000071012670754330020551 0ustar0000000000000000{-# LANGUAGE CPP #-} module Web.Twitter.Types.Lens.TH where import Language.Haskell.TH import Control.Lens hiding (makeLenses) makeLenses :: Name -> Q [Dec] makeLenses = makeLensesWith $ lensRules & lensField .~ nameF where #if MIN_VERSION_lens(4, 5, 0) nameF _ _ n = [TopName . mkName . nameBase $ n] #elif MIN_VERSION_lens(4, 4, 0) nameF _ n = [TopName . mkName . nameBase $ n] #elif MIN_VERSION_lens(4, 0, 0) nameF = Just #endif twitter-types-lens-0.7.2/LICENSE0000644000000000000000000000277012670754330014533 0ustar0000000000000000Copyright (c) 2014, Takahiro HIMURA All rights reserved. Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met: * Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. * Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. * Neither the name of Takahiro HIMURA nor the names of other contributors may be used to endorse or promote products derived from this software without specific prior written permission. THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. twitter-types-lens-0.7.2/Setup.hs0000644000000000000000000000005612670754330015155 0ustar0000000000000000import Distribution.Simple main = defaultMain twitter-types-lens-0.7.2/twitter-types-lens.cabal0000644000000000000000000000144112670754330020307 0ustar0000000000000000name: twitter-types-lens version: 0.7.2 synopsis: Twitter JSON types (lens powered) homepage: https://github.com/himura/twitter-types-lens license: BSD3 license-file: LICENSE author: Takahiro HIMURA maintainer: taka@himura.jp category: Web build-type: Simple cabal-version: >=1.10 source-repository head type: git location: git://github.com/himura/twitter-types-lens.git library ghc-options: -Wall exposed-modules: Web.Twitter.Types.Lens other-modules: Web.Twitter.Types.Lens.TH build-depends: base >= 4 && < 5 , lens >= 4.0 && < 5 , template-haskell , text , time , twitter-types >= 0.7.2 && < 0.8 default-language: Haskell2010