haskell - 简化 do 表示法

Question

我正在尝试对时间字符串执行非常简单的解析

data Time = Time Int Int Int String

-- example input: 07:00:00AM
timeParser :: Parser Time
timeParser = do
    hh <- digits
    _ <- colon
    mm <- digits
    _ <-colon
    ss <- digits
    p <- period
    return $ Time hh mm ss p

有没有办法通过组合 (>>) 和 (>>=) 运算符来简化 do block ？

Answer 1

因为您的Parser也应该是 Applicative 的实例:

timeParser :: Parser Time
timeParser = Time <$> (digits <* colon) <*> (digits <* colon) <*> digits <*> period