apiSimpleC function

src/Arxiv.hs

@@ -41,6 +41,12 @@ batchSize = 50
 apiSimple :: Maybe Limit -> [String] -> IO [Result]
 apiSimple limit query = execQuery limit $ simpleQuery query
 
+apiSimpleC :: MonadResource m => Maybe Limit -> [String] -> IO (Int, C.ConduitT () Result m ())
+apiSimpleC Nothing query = searchAxv' $ simpleQuery query
+apiSimpleC (Just limit) query = do
+  (cnt, resC) <- searchAxv' $ simpleQuery query
+  pure (cnt, resC .| C.takeC limit)
+
 -- | Complex Query search for terms in specific fields to be defined by Ax.Query
 apiComplex :: Maybe Limit -> Ax.Query -> IO [Result]
 apiComplex limit query = execQuery limit query