[FIX] Adding a threadelay to not be banned

src/PUBMED.hs

@@ -2,6 +2,7 @@ module PUBMED where
 
 import Conduit
 import Control.Applicative
+import Control.Concurrent (threadDelay)
 import Data.Attoparsec.ByteString
 import Data.Attoparsec.ByteString.Char8 (anyChar)
 import Data.ByteString.Char8 (pack)
@@ -10,9 +11,9 @@ import Data.Maybe (fromMaybe)
 import Data.Text (Text)
 import Network.HTTP.Client (newManager)
 import Network.HTTP.Client.TLS (tlsManagerSettings)
-import Panic (panic)
 import PUBMED.Client
 import PUBMED.Parser
+import Panic (panic)
 import Prelude hiding (takeWhile)
 import Servant.Client (runClientM, mkClientEnv, BaseUrl(..), ClientEnv, ClientError, Scheme(..))
 import qualified Data.ByteString.Lazy as LBS
@@ -61,9 +62,11 @@ getPage :: ClientEnv -> Text -> Int -> Int -> IO [PubMed]
 getPage env q perPage pageNum = do
   let offset = fromIntegral $ pageNum * perPage
   eDocs <- runSimpleFindPubmedAbstractRequest q (Just offset) (Just $ fromIntegral perPage)
-  pure $ case eDocs of
+  case eDocs of
     Left err -> panic $ "[getPage] error: " <> show err
-    Right docs -> docs
+    Right docs -> do
+      _ <- threadDelay 1000000 -- One seconds
+      pure docs
   
 -- | TODO this parser need at least one subs at the end
 -- (use endOfInput)