{-# OPTIONS_GHC -fno-warn-unused-do-bind #-} -- ihamletFile discards do results

module Jobs.Handler.SendNotification.CorrectionsAssigned
  ( dispatchNotificationCorrectionsAssigned
  ) where

import Import

import Jobs.Handler.SendNotification.Utils
import Handler.Utils.Mail

import Text.Hamlet
import qualified Data.CaseInsensitive as CI

dispatchNotificationCorrectionsAssigned :: UserId -> SheetId -> UserId -> Handler ()
dispatchNotificationCorrectionsAssigned  nUser nSheet jRecipient = do
  (Course{..}, Sheet{..}, nbrSubs) <- liftHandlerT . runDB $ do
    sheet <- getJust nSheet
    course <- belongsToJust sheetCourse sheet
    nbrSubs <- count [ SubmissionSheet      ==. nSheet
                     , SubmissionRatingBy   ==. Just nUser
                     , SubmissionRatingTime ==. Nothing
                     ]
    return (course, sheet, nbrSubs)
  when (nbrSubs > 0) . userMailT jRecipient $ do 
    setSubjectI $ MsgMailSubjectCorrectionsAssigned courseShorthand sheetName

    MsgRenderer mr <- getMailMsgRenderer
    let termDesc = mr . ShortTermIdentifier $ unTermKey courseTerm

    editNotifications <- mkEditNotifications jRecipient

    addAlternatives $
      providePreferredAlternative ($(ihamletFile "templates/mail/correctionsAssigned.hamlet") :: HtmlUrlI18n UniWorXMessage (Route UniWorX))