increasing time

src/PUBMED.hs

@@ -65,7 +65,7 @@ getPage env q perPage pageNum = do
   case eDocs of
     Left err -> panic $ "[getPage] error: " <> show err
     Right docs -> do
-      _ <- threadDelay 1000000 -- One seconds
+      _ <- threadDelay 2000000 -- One seconds
       pure docs
   
 -- | TODO this parser need at least one subs at the end