imap 0.3.0.6 → 0.3.0.7

raw patch · 2 files changed

+63/−10 lines, 2 filesdep ~basedep ~eitherdep ~list-tPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: base, either, list-t

API changes (from Hackage documentation)

Files

• imap.cabal +4/−5
• src/Network/IMAP/Types.hs +59/−5

@@ -2,7 +2,7 @@ -- see http://haskell.org/cabal/users-guide/  name:                imap-version:             0.3.0.6+version:             0.3.0.7 synopsis:            An efficient IMAP client library, with SSL and streaming license:             BSD3 license-file:        LICENSE@@ -106,7 +106,7 @@     Network.IMAP.Utils   -- other-modules:   -- other-extensions:-  build-depends:        base == 4.10.*,+  build-depends:        base >= 4.10 && <4.12,                         attoparsec == 0.13.*,                         text == 1.2.*,                         connection == 0.2.*,@@ -115,11 +115,10 @@                         word8 == 0.1.* && <0.2,                         rolling-queue == 0.1,                         stm == 2.4.* && <2.5,-                        either ==  4.5.*,+                        either >= 4.5 && <6,                         hslogger == 1.2.*,                         transformers == 0.5.*,-                        list-t == 1.0.0.*,-                        derive == 2.6.*,+                        list-t == 1.0.*,                         stm-delay == 0.1.*,                         exceptions == 0.8.*,                         pipes == 4.3.*,

@@ -4,7 +4,7 @@ import qualified Data.ByteString.Char8 as BSC import qualified Data.STM.RollingQueue as RQ import Control.Concurrent.STM.TVar (TVar)-import Data.DeriveTH+-- import Data.DeriveTH  import Control.Concurrent (ThreadId) import Control.Concurrent.STM.TQueue (TQueue)@@ -26,6 +26,12 @@                      | Disconnected                      deriving (Show) +isUndefinedState, isConnected, isDisconnected :: ConnectionState -> Bool++isUndefinedState UndefinedState = True; isUndefinedState _ = False+isConnected Connected = True; isConnected _ = False+isDisconnected Disconnected = True; isDisconnected _ = False+ data IMAPConnection = IMAPConnection {   -- |The current connection state   connectionState :: TVar ConnectionState,@@ -86,6 +92,16 @@           | FOther T.Text   deriving (Show, Eq, Ord) +isFOther, isFAny, isFRecent, isFDraft, isFDeleted, isFFlagged, isFAnswered, isFSeen :: Flag -> Bool+isFOther (FOther _) = True; isFOther _ = False+isFAny FAny = True; isFAny _ = False+isFRecent FRecent = True; isFRecent _ = False+isFDraft FDraft = True; isFDraft _ = False+isFDeleted FDeleted = True; isFDeleted _ = False+isFFlagged FFlagged = True; isFFlagged _ = False+isFAnswered FAnswered = True; isFAnswered _ = False+isFSeen FSeen = True; isFSeen _ = False+ data Capability = CIMAP4                 | CUnselect                 | CIdle@@ -181,6 +197,41 @@                     | Extension BSC.ByteString ExtensionPayload -- ^ A format extension                     deriving (Show, Eq) +isFlags, isExists, isExpunge, isBye, isHighestModSeq, isRecent, isMessages :: UntaggedResult -> Bool+isUnseen, isPermanentFlags, isUID, isMessageId, isUIDNext, isUIDValidity :: UntaggedResult -> Bool+isOKResult, isNOResult, isBADResult, isCapabilities, isListR, isFetch :: UntaggedResult -> Bool+isStatusR, isSearch, isEnvelope, isInternalDate, isSize, isUnknown :: UntaggedResult -> Bool+isBody, isBodyStructure, isExtension :: UntaggedResult -> Bool++isFlags (Flags _) = True; isFlags _ = False+isExists (Exists{}) = True; isExists _ = False+isExpunge (Expunge _) = True; isExpunge _ = False+isBye Bye = True; isBye _ = False+isHighestModSeq (HighestModSeq _) = True; isHighestModSeq _ = False+isRecent (Recent _) = True; isRecent _ = False+isMessages (Messages _) = True; isMessages _ = False+isUnseen (Unseen _) = True; isUnseen _ = False+isPermanentFlags (PermanentFlags _) = True; isPermanentFlags _ = False+isUID (UID _) = True; isUID _ = False+isMessageId (MessageId _) = True; isMessageId _ = False+isUIDNext (UIDNext _) = True; isUIDNext _ = False+isUIDValidity (UIDValidity _) = True; isUIDValidity _ = False+isOKResult (OKResult _) = True; isOKResult _ = False+isNOResult (NOResult _) = True; isNOResult _ = False+isBADResult (BADResult _) = True; isBADResult _ = False+isCapabilities (Capabilities _) = True; isCapabilities _ = False+isListR (ListR{}) = True; isListR _ = False+isFetch (Fetch{}) = True; isFetch _ = False+isStatusR (StatusR{}) = True; isStatusR _ = False+isSearch (Search{}) = True; isSearch _ = False+isEnvelope (Envelope{}) = True; isEnvelope _ = False+isInternalDate (InternalDate{}) = True; isInternalDate _ = False+isSize (Size{}) = True; isSize _ = False+isUnknown (Unknown{}) = True; isUnknown _ = False+isBody  (Unknown{}) = True; isBody _ = False+isBodyStructure  (Unknown{}) = True; isBodyStructure _ = False+isExtension  (Unknown{}) = True; isExtension _ = False+ data ExtensionPayload = ExtInt Integer | ExtLabels [BSC.ByteString]   deriving (Show, Eq) @@ -198,6 +249,12 @@ data CommandResult = Tagged TaggedResult | Untagged UntaggedResult   deriving (Show, Eq) +isTagged, isUntagged :: CommandResult -> Bool+isTagged (Tagged{}) = True; isTagged _ = False+isUntagged (Untagged{}) = True; isUntagged _ = False+++ -- |If you don't care about streaming you will get results in this simplified --  data type, in which the ErrorMessage comes from TaggedResult if it failed. type SimpleResult = Either ErrorMessage [UntaggedResult]@@ -223,7 +280,4 @@ defaultImapSettings :: IMAPSettings defaultImapSettings = IMAPSettings 30 10 -$(derive makeIs ''Flag)-$(derive makeIs ''UntaggedResult)-$(derive makeIs ''CommandResult)-$(derive makeIs ''ConnectionState)+