How to get the flash messages inside a controller action?

[s0kil]

How could I get all the flash messages inside an controller action?

[s0kil]

flashMessages :: [FlashMessage] <- fromContext
let flashMessagesText =
      map flashMessageText flashMessages
      where
        flashMessageText fm =
          case fm of
            SuccessFlashMessage message ->
              "Success: " ++ message
            ErrorFlashMessage message ->
              "Got an Error: " ++ message