How to get the flash messages inside a view?

[s0kil]

How could I get all the flash messages inside an view?

[s0kil]

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