module Jobs.Handler.SetLogSettings
  ( dispatchJobSetLogSettings
  ) where

import Import

dispatchJobSetLogSettings :: InstanceId -> LogSettings -> Handler ()
dispatchJobSetLogSettings jInstance jLogSettings = do
  instanceId <- getsYesod appInstanceID
  unless (instanceId == jInstance) $ fail "Incorrect instance"
  lSettings <- getsYesod appLogSettings
  atomically $ writeTVar lSettings jLogSettings
