added a new pre-parser to remove <sub> (not working yet)

app/Main.hs

@@ -9,13 +9,26 @@ import Network.HTTP.Client.TLS (tlsManagerSettings)
 import Servant.Client (runClientM, mkClientEnv, BaseUrl(..), Scheme(..))
 import Text.XML (parseLBS_, def)
 import Text.XML.Cursor (fromDocument, Cursor)
-
+import Data.Conduit (ConduitT)
+import Data.ByteString.Lazy (ByteString)
+import Data.ByteString.Char8 (pack)
+import Control.Monad.Catch (MonadThrow)
+import Text.Parsec hiding (runParser)
+import Text.Parsec.ByteString.Lazy
 import qualified Data.ByteString.Lazy as LBS
 import qualified Data.Text as T
 
 runParser :: Show res => (Cursor -> res) -> LBS.ByteString -> res
 runParser parser = parser . fromDocument . parseLBS_ def
 
+removeSub :: Parser ByteString
+removeSub = do
+  dt <- many1 anyChar <* (skipMany $ sub <|> asub)
+  return . LBS.fromStrict $ pack dt
+  where
+    sub = string "<sub>"
+    asub = string "</sub>"
+
 runSimpleFindPubmedAbstractRequest :: T.Text -> IO [PubMed]
 runSimpleFindPubmedAbstractRequest rq = do
   manager' <- newManager tlsManagerSettings
@@ -32,8 +45,9 @@ runSimpleFindPubmedAbstractRequest rq = do
       case res' of
         (Left err) -> return []
         (Right (BsXml abstracts)) -> do
-          _ <- print abstracts
-          pubMedParser abstracts
+          case (parse removeSub "error" abstracts) of
+            (Left _) -> return []
+            (Right v) -> pubMedParser v
 
 main :: IO ()
 main = do

package.yaml

@@ -35,6 +35,8 @@ dependencies:
 - time
 - data-time-segment
 - protolude
+- parsec
+- either
 
 library:
   source-dirs: src