-- | Get the list of accumulated failure messages.
getFailMessages :: FormatM [FailureRecord]
getFailMessages = liftF (GetFailMessages id)
getFailMessages :: FormatM [FailureRecord]
getFailMessages = liftF (GetFailMessages id)
getFailMessages = liftF (GetFailMessages id)