antigate 0.3.2 → 0.3.3
raw patch · 2 files changed
+4/−4 lines, 2 files
Files
- Text/Recognition/Antigate.hs +3/−3
- antigate.cabal +1/−1
Text/Recognition/Antigate.hs view
@@ -340,7 +340,7 @@ {api_upload_sleep :: Int -- ^ how much to sleep while waiting for available slot. Microseconds. ,api_check_sleep :: Int -- ^ how much to sleep between captcha checks. Microseconds. ,api_counter :: Phase -- ^ Current solving phase- -> Int -- ^ Number of times counter was called during this phase, starting at @0@+ -> Int -- ^ Number of times phase was retried, calling a counter each time. -> IO () -- ^ This action will be executed before each sleep. e.g. 'System.IO.print' } @@ -368,7 +368,7 @@ -> BL.ByteString -- ^ image contents -> Manager -- ^ HTTP connection manager to use -> m (CaptchaID, String)-solveCaptcha SolveConf{..} key conf filename image m = goupload 0+solveCaptcha SolveConf{..} key conf filename image m = goupload 1 where goupload !c = do ur <- uploadCaptcha key conf filename image m@@ -377,7 +377,7 @@ liftIO $ api_counter UploadPhase c liftIO $ threadDelay api_upload_sleep goupload (c+1)- UPLOAD_OK i -> gocheck i 0+ UPLOAD_OK i -> gocheck i 1 a -> liftIO $ throwIO $ SolveExceptionUpload a gocheck captchaid !c = do liftIO $ threadDelay api_check_sleep
antigate.cabal view
@@ -1,5 +1,5 @@ name: antigate-version: 0.3.2+version: 0.3.3 synopsis: Haskell interface for antigate.com captcha recognition service and services supporting its API description: Haskell interface for antigate.com captcha recognition service and other services (e.g. captchabot, decaptcher) category: Network APIs, CAPTCHA, Text Recognition