gonito/Handler/Announcements.hs

module Handler.Announcements where

import Import

import Handler.Shared
import Web.Announcements (sendAnnouncement)

getTestAnnouncementsR :: Handler Html
getTestAnnouncementsR = do
  app <- getYesod

  let webHook = appAnnouncementHook $ appSettings app

  let name = case appLocation $ appSettings app of
               Just loc -> "Gonito@" ++ loc
               Nothing -> "Gonito"

  case webHook of
    Just hook -> liftIO $ sendAnnouncement hook ("Test message from " ++ (linkInAnnouncement (Just hook) app name ""))
    Nothing -> return ()

  defaultLayout $ do
    setTitle "Test announcements"
    $(widgetFile "test-announcements")