使用attoparsec更有效地解析Haskell中的句子

Question

我正在尝试解析.txt格式的电子书，以了解有关attoparsec和Haskell（我是新手）的更多信息。 在这种情况下，我试图计算给定文本文件中的句子数。 这是我的代码：

{-# LANGUAGE OverloadedStrings #-}
import Data.Attoparsec.Text
import qualified Data.Text as T
import qualified Data.Text.IO as Txt
import Data.List
import Control.Applicative ((<*>), (*>), (<$>), (<|>), pure)

data Prose = Prose {
  word :: [Char]
} deriving Show

optional :: Parser a -> Parser ()
optional p = option () (try p *> pure ())

specialChars = ['-', '_', '…', '“', '”', '\"', '\'', '’', '@', '#', '$',
                '%', '^', '&', '*', '(', ')', '+', '=', '~', '`', '{', '}',
                '[', ']', '/', ':', ';', ',']

inputSentence :: Parser Prose
inputSentence = Prose <$> many1' (letter <|> digit <|> space <|> satisfy (inClass specialChars))

sentenceSeparator :: Parser ()
sentenceSeparator = many1 (space <|> satisfy (inClass ".?!")) >> pure ()

sentenceParser :: String -> [Prose]
sentenceParser str = case parseOnly wp (T.pack str) of
    Left err -> error err
    Right x -> x
    where
        wp = optional sentenceSeparator *> inputSentence `sepBy1` sentenceSeparator

main :: IO()
main = do
  input <- readFile "test.txt"
  let sentences = sentenceParser input
  print sentences
  print $ length sentences

如果您想全面了解我在做什么，请单击此链接到github存储库。 我的问题是，当我尝试使用输入来解析文本文件时：

我得到如下的输出：

所以我的问题是，我该如何：

1. 使解析器意识到带有“ \\ n \\ n ..”的任何东西都是不同的句子。
2. 像Daniel G. Brinton这样的输入仅是一句话。

我试过使用isHorizontalSpace ，但无济于事。