-- | Get the number of failed examples encountered so far.
getFailCount :: FormatM Int
getFailCount = length <$> getFailMessages
getFailCount :: FormatM Int
getFailCount = length <$> getFailMessages
getFailCount = length <$> getFailMessages