google-search 0.1.0.1 → 0.2.0.0
raw patch · 2 files changed
+32/−17 lines, 2 filesdep ~timePVP ok
version bump matches the API change (PVP)
Dependency ranges changed: time
API changes (from Hackage documentation)
- Language.Google.Search.Mail: instance IsString MailOp
- Language.Google.Search.Mail: instance SearchBuilder MailOp
- Language.Google.Search.Mail: instance Show Category
- Language.Google.Search.Mail: instance Show Feature
- Language.Google.Search.Mail: instance Show Location
- Language.Google.Search.Mail: instance Show MailOp
- Language.Google.Search.Mail: instance Show Status
- Language.Google.Search.Simple: instance (Functor f, IsString a) => IsString (Free f a)
- Language.Google.Search.Simple: instance (Functor f, SearchBuilder a, SyntaxBuilder f) => SearchBuilder (Free f a)
- Language.Google.Search.Simple: instance ComplementF BooleanF
- Language.Google.Search.Simple: instance ComplementF f => Complement (Free f a)
- Language.Google.Search.Simple: instance ConjunctF BooleanF
- Language.Google.Search.Simple: instance ConjunctF f => Conjunct (Free f a)
- Language.Google.Search.Simple: instance DisjunctF BooleanF
- Language.Google.Search.Simple: instance DisjunctF f => Disjunct (Free f a)
- Language.Google.Search.Simple: instance Functor BooleanF
- Language.Google.Search.Simple: instance Functor Term
- Language.Google.Search.Simple: instance IsString t => IsString (Term t)
- Language.Google.Search.Simple: instance SearchBuilder Text
- Language.Google.Search.Simple: instance SearchBuilder a => SearchBuilder (Term a)
- Language.Google.Search.Simple: instance Show Duration
- Language.Google.Search.Simple: instance Show PrecBuilder
- Language.Google.Search.Simple: instance Show Size
- Language.Google.Search.Simple: instance Show e => Show (BooleanF e)
- Language.Google.Search.Simple: instance Show t => Show (Term t)
- Language.Google.Search.Simple: instance SyntaxBuilder BooleanF
- Language.Google.Search.Simple: instance SyntaxBuilder Term
+ Language.Google.Search.Mail: instance Data.String.IsString Language.Google.Search.Mail.MailOp
+ Language.Google.Search.Mail: instance GHC.Show.Show Language.Google.Search.Mail.Category
+ Language.Google.Search.Mail: instance GHC.Show.Show Language.Google.Search.Mail.Feature
+ Language.Google.Search.Mail: instance GHC.Show.Show Language.Google.Search.Mail.Location
+ Language.Google.Search.Mail: instance GHC.Show.Show Language.Google.Search.Mail.MailOp
+ Language.Google.Search.Mail: instance GHC.Show.Show Language.Google.Search.Mail.Status
+ Language.Google.Search.Mail: instance Language.Google.Search.Simple.SearchBuilder Language.Google.Search.Mail.MailOp
+ Language.Google.Search.Simple: instance (GHC.Base.Functor f, Data.String.IsString a) => Data.String.IsString (Control.Monad.Free.Free f a)
+ Language.Google.Search.Simple: instance (GHC.Base.Functor f, Language.Google.Search.Simple.SearchBuilder a, Language.Google.Search.Simple.SyntaxBuilder f) => Language.Google.Search.Simple.SearchBuilder (Control.Monad.Free.Free f a)
+ Language.Google.Search.Simple: instance Data.String.IsString t => Data.String.IsString (Language.Google.Search.Simple.Term t)
+ Language.Google.Search.Simple: instance GHC.Base.Functor Language.Google.Search.Simple.BooleanF
+ Language.Google.Search.Simple: instance GHC.Base.Functor Language.Google.Search.Simple.Term
+ Language.Google.Search.Simple: instance GHC.Show.Show Language.Google.Search.Simple.Duration
+ Language.Google.Search.Simple: instance GHC.Show.Show Language.Google.Search.Simple.PrecBuilder
+ Language.Google.Search.Simple: instance GHC.Show.Show Language.Google.Search.Simple.Size
+ Language.Google.Search.Simple: instance GHC.Show.Show e => GHC.Show.Show (Language.Google.Search.Simple.BooleanF e)
+ Language.Google.Search.Simple: instance GHC.Show.Show t => GHC.Show.Show (Language.Google.Search.Simple.Term t)
+ Language.Google.Search.Simple: instance Language.Google.Search.Simple.ComplementF Language.Google.Search.Simple.BooleanF
+ Language.Google.Search.Simple: instance Language.Google.Search.Simple.ComplementF f => Language.Google.Search.Simple.Complement (Control.Monad.Free.Free f a)
+ Language.Google.Search.Simple: instance Language.Google.Search.Simple.ConjunctF Language.Google.Search.Simple.BooleanF
+ Language.Google.Search.Simple: instance Language.Google.Search.Simple.ConjunctF f => Language.Google.Search.Simple.Conjunct (Control.Monad.Free.Free f a)
+ Language.Google.Search.Simple: instance Language.Google.Search.Simple.DisjunctF Language.Google.Search.Simple.BooleanF
+ Language.Google.Search.Simple: instance Language.Google.Search.Simple.DisjunctF f => Language.Google.Search.Simple.Disjunct (Control.Monad.Free.Free f a)
+ Language.Google.Search.Simple: instance Language.Google.Search.Simple.SearchBuilder Data.Text.Internal.Text
+ Language.Google.Search.Simple: instance Language.Google.Search.Simple.SearchBuilder a => Language.Google.Search.Simple.SearchBuilder (Language.Google.Search.Simple.Term a)
+ Language.Google.Search.Simple: instance Language.Google.Search.Simple.SyntaxBuilder Language.Google.Search.Simple.BooleanF
+ Language.Google.Search.Simple: instance Language.Google.Search.Simple.SyntaxBuilder Language.Google.Search.Simple.Term
- Language.Google.Search.Mail: Label :: Text -> MailOp
+ Language.Google.Search.Mail: Label :: (BooleanM Text) -> MailOp
- Language.Google.Search.Simple: andB :: Conjunct e => [e] -> e
+ Language.Google.Search.Simple: andB :: (Conjunct e) => [e] -> e
- Language.Google.Search.Simple: orB :: Disjunct e => [e] -> e
+ Language.Google.Search.Simple: orB :: (Disjunct e) => [e] -> e
Files
- google-search.cabal +24/−15
- src/Language/Google/Search/Mail.hs +8/−2
google-search.cabal view
@@ -1,5 +1,5 @@ name: google-search-version: 0.1.0.1+version: 0.2.0.0 synopsis: EDSL for Google and GMail search expressions description: Construct well-typed search expressions for use in various Google services.@@ -13,22 +13,31 @@ build-type: Simple cabal-version: >= 1.8 stability: experimental+tested-with:+ GHC == 7.4.2, GHC == 7.6.3, GHC == 7.8.4,+ GHC == 7.10.2, GHC == 7.10.3 source-repository head- type: git- location: http://github.com/liyang/google-search+ type: git+ location: http://github.com/liyang/google-search +flag old-time+ description: time < 1.5+ default: False+ library- hs-source-dirs: src- exposed-modules:- Language.Google.Search.Simple- Language.Google.Search.Mail- build-depends:- base >= 4.5 && <= 9000,- free >= 2.1,- nats >= 0.1,- old-locale >= 1.0,- text >= 0.11,- time >= 1.4- ghc-options: -Wall+ hs-source-dirs: src+ ghc-options: -Wall+ exposed-modules:+ Language.Google.Search.Simple+ Language.Google.Search.Mail+ build-depends:+ base >= 4.5 && <= 9000,+ free >= 2.1,+ nats >= 0.1,+ text >= 0.11+ if flag(old-time)+ build-depends: old-locale >= 1.0, time >= 1.4 && < 1.5+ else+ build-depends: time >= 1.5
src/Language/Google/Search/Mail.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} {-# LANGUAGE OverloadedStrings #-} -- | <https://support.google.com/mail/answer/7190>@@ -14,7 +15,12 @@ import Data.Time.Calendar (Day) import Data.Time.Format (formatTime) import Numeric.Natural++#if MIN_VERSION_time(1,5,0)+import Data.Time.Format (defaultTimeLocale)+#else import System.Locale (defaultTimeLocale)+#endif import Language.Google.Search.Simple @@ -71,7 +77,7 @@ | From Simple | To Simple | Subject Simple- | Label Text+ | Label (BooleanM Text) | Has Feature | List Simple | Filename Simple@@ -103,7 +109,7 @@ From s -> "from:" <>? s To s -> "to:" <>? s Subject s -> "subject:" <>? s- Label t -> "label:" <>! B.fromText t+ Label s -> "label:" <>? s Has ft -> "has:" <>! case ft of Attachment -> "attachment" BlueInfo -> "blue-info"