antigate 2.0.1 → 2.0.2
raw patch · 2 files changed
+11/−6 lines, 2 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
- Text.Recognition.Antigate: api_check_sleep :: SolveConf -> [Int]
- Text.Recognition.Antigate: api_counter :: SolveConf -> Phase -> Int -> IO ()
- Text.Recognition.Antigate: api_upload_callback :: SolveConf -> CaptchaID -> IO ()
- Text.Recognition.Antigate: api_upload_sleep :: SolveConf -> [Int]
- Text.Recognition.Antigate: calc :: CaptchaConf -> Bool
- Text.Recognition.Antigate: instance Bounded Phase
- Text.Recognition.Antigate: instance Default ApiKey
- Text.Recognition.Antigate: instance Default CaptchaConf
- Text.Recognition.Antigate: instance Default SolveConf
- Text.Recognition.Antigate: instance Enum Phase
- Text.Recognition.Antigate: instance Eq ApiKey
- Text.Recognition.Antigate: instance Eq Phase
- Text.Recognition.Antigate: instance Eq a => Eq (ApiResult a)
- Text.Recognition.Antigate: instance Exception SolveException
- Text.Recognition.Antigate: instance Functor ApiResult
- Text.Recognition.Antigate: instance IsString ApiKey
- Text.Recognition.Antigate: instance NFData ApiKey
- Text.Recognition.Antigate: instance NFData CaptchaConf
- Text.Recognition.Antigate: instance NFData Phase
- Text.Recognition.Antigate: instance NFData SolveConf
- Text.Recognition.Antigate: instance NFData SolveException
- Text.Recognition.Antigate: instance NFData a => NFData (ApiResult a)
- Text.Recognition.Antigate: instance Ord ApiKey
- Text.Recognition.Antigate: instance Ord Phase
- Text.Recognition.Antigate: instance Read ApiKey
- Text.Recognition.Antigate: instance Read CaptchaConf
- Text.Recognition.Antigate: instance Read Phase
- Text.Recognition.Antigate: instance Read a => Read (ApiResult a)
- Text.Recognition.Antigate: instance Show ApiKey
- Text.Recognition.Antigate: instance Show CaptchaConf
- Text.Recognition.Antigate: instance Show Phase
- Text.Recognition.Antigate: instance Show SolveConf
- Text.Recognition.Antigate: instance Show SolveException
- Text.Recognition.Antigate: instance Show a => Show (ApiResult a)
- Text.Recognition.Antigate: instance Typeable SolveException
- Text.Recognition.Antigate: is_russian :: CaptchaConf -> Bool
- Text.Recognition.Antigate: max_bid :: CaptchaConf -> Maybe Double
- Text.Recognition.Antigate: max_len :: CaptchaConf -> Word
- Text.Recognition.Antigate: min_len :: CaptchaConf -> Word
- Text.Recognition.Antigate: numeric :: CaptchaConf -> Maybe Bool
- Text.Recognition.Antigate: phrase :: CaptchaConf -> Bool
- Text.Recognition.Antigate: regsense :: CaptchaConf -> Bool
+ Text.Recognition.Antigate: [api_check_sleep] :: SolveConf -> [Int]
+ Text.Recognition.Antigate: [api_counter] :: SolveConf -> Phase -> Int -> IO ()
+ Text.Recognition.Antigate: [api_upload_callback] :: SolveConf -> CaptchaID -> IO ()
+ Text.Recognition.Antigate: [api_upload_sleep] :: SolveConf -> [Int]
+ Text.Recognition.Antigate: [calc] :: CaptchaConf -> Bool
+ Text.Recognition.Antigate: [is_russian] :: CaptchaConf -> Bool
+ Text.Recognition.Antigate: [max_bid] :: CaptchaConf -> Maybe Double
+ Text.Recognition.Antigate: [max_len] :: CaptchaConf -> Word
+ Text.Recognition.Antigate: [min_len] :: CaptchaConf -> Word
+ Text.Recognition.Antigate: [numeric] :: CaptchaConf -> Maybe Bool
+ Text.Recognition.Antigate: [phrase] :: CaptchaConf -> Bool
+ Text.Recognition.Antigate: [regsense] :: CaptchaConf -> Bool
+ Text.Recognition.Antigate: instance Control.DeepSeq.NFData Text.Recognition.Antigate.ApiKey
+ Text.Recognition.Antigate: instance Control.DeepSeq.NFData Text.Recognition.Antigate.CaptchaConf
+ Text.Recognition.Antigate: instance Control.DeepSeq.NFData Text.Recognition.Antigate.Phase
+ Text.Recognition.Antigate: instance Control.DeepSeq.NFData Text.Recognition.Antigate.SolveConf
+ Text.Recognition.Antigate: instance Control.DeepSeq.NFData Text.Recognition.Antigate.SolveException
+ Text.Recognition.Antigate: instance Control.DeepSeq.NFData a => Control.DeepSeq.NFData (Text.Recognition.Antigate.ApiResult a)
+ Text.Recognition.Antigate: instance Data.Default.Class.Default Text.Recognition.Antigate.ApiKey
+ Text.Recognition.Antigate: instance Data.Default.Class.Default Text.Recognition.Antigate.CaptchaConf
+ Text.Recognition.Antigate: instance Data.Default.Class.Default Text.Recognition.Antigate.SolveConf
+ Text.Recognition.Antigate: instance Data.String.IsString Text.Recognition.Antigate.ApiKey
+ Text.Recognition.Antigate: instance GHC.Base.Functor Text.Recognition.Antigate.ApiResult
+ Text.Recognition.Antigate: instance GHC.Classes.Eq Text.Recognition.Antigate.ApiKey
+ Text.Recognition.Antigate: instance GHC.Classes.Eq Text.Recognition.Antigate.Phase
+ Text.Recognition.Antigate: instance GHC.Classes.Eq a => GHC.Classes.Eq (Text.Recognition.Antigate.ApiResult a)
+ Text.Recognition.Antigate: instance GHC.Classes.Ord Text.Recognition.Antigate.ApiKey
+ Text.Recognition.Antigate: instance GHC.Classes.Ord Text.Recognition.Antigate.Phase
+ Text.Recognition.Antigate: instance GHC.Enum.Bounded Text.Recognition.Antigate.Phase
+ Text.Recognition.Antigate: instance GHC.Enum.Enum Text.Recognition.Antigate.Phase
+ Text.Recognition.Antigate: instance GHC.Exception.Exception Text.Recognition.Antigate.SolveException
+ Text.Recognition.Antigate: instance GHC.Read.Read Text.Recognition.Antigate.ApiKey
+ Text.Recognition.Antigate: instance GHC.Read.Read Text.Recognition.Antigate.CaptchaConf
+ Text.Recognition.Antigate: instance GHC.Read.Read Text.Recognition.Antigate.Phase
+ Text.Recognition.Antigate: instance GHC.Read.Read a => GHC.Read.Read (Text.Recognition.Antigate.ApiResult a)
+ Text.Recognition.Antigate: instance GHC.Show.Show Text.Recognition.Antigate.ApiKey
+ Text.Recognition.Antigate: instance GHC.Show.Show Text.Recognition.Antigate.CaptchaConf
+ Text.Recognition.Antigate: instance GHC.Show.Show Text.Recognition.Antigate.Phase
+ Text.Recognition.Antigate: instance GHC.Show.Show Text.Recognition.Antigate.SolveConf
+ Text.Recognition.Antigate: instance GHC.Show.Show Text.Recognition.Antigate.SolveException
+ Text.Recognition.Antigate: instance GHC.Show.Show a => GHC.Show.Show (Text.Recognition.Antigate.ApiResult a)
Files
- Text/Recognition/Antigate.hs +10/−5
- antigate.cabal +1/−1
Text/Recognition/Antigate.hs view
@@ -84,7 +84,11 @@ import qualified Data.ByteString.Lazy as BL import Data.ByteString.Lazy.Char8() +#if !MIN_VERSION_http_client(0,5,0) import Network.HTTP.Conduit hiding (httpLbs)+#else+import Network.HTTP.Conduit+#endif import qualified Network.HTTP.Conduit as HC import Network.HTTP.Client.MultipartFormData @@ -107,14 +111,13 @@ import Control.DeepSeq (NFData(..), deepseq) -__RESPONSE_TIMEOUT :: Int-__RESPONSE_TIMEOUT = 15000000- decodeUtf8 :: BL.ByteString -> TL.Text decodeUtf8 = TLE.decodeUtf8With TEE.lenientDecode +#if !MIN_VERSION_http_client(0,5,0) httpLbs :: MonadIO m => Request -> Manager -> m (Response BL.ByteString)-httpLbs r = HC.httpLbs r{responseTimeout=Just __RESPONSE_TIMEOUT}+httpLbs r = HC.httpLbs r{responseTimeout=Just 15000000}+#endif httpGet :: (Failure HttpException m, MonadIO m, MonadThrow m) => Manager -> String -> m BL.ByteString httpGet m u = do@@ -382,7 +385,9 @@ data Phase = UploadPhase | CheckPhase deriving (Show, Read, Eq, Ord, Enum, Bounded) -instance NFData Phase+instance NFData Phase where+ {-# INLINE rnf #-}+ rnf x = x `seq` () data SolveConf = SolveConf {
antigate.cabal view
@@ -1,5 +1,5 @@ name: antigate-version: 2.0.1+version: 2.0.2 synopsis: Interface for antigate.com captcha recognition API description: Haskell interface for antigate.com captcha recognition service