-- | Check for updates when the program starts
module Controller.Conditions.UpdateCheck where

-- External libraries
import qualified Hails.Graphics.UI.Gtk.Simplify.UpdateCheck as UpdateCheck

  Internal libraries
import CombinedEnvironment

-- | Tries to find updates when the program starts
installHandlers :: CEnv -> IO()
installHandlers cenv = do
  -- FIXME: do this only if the user has enabled it
  let pm = model cenv
  onEvent pm Initialised $ onViewAsync $ UpdateCheck.condition cenv

 | Check for updates when the program starts
 External libraries
 | Tries to find updates when the program starts
 FIXME: do this only if the user has enabled it
module Controller.Conditions.UpdateCheck where

import qualified Hails.Graphics.UI.Gtk.Simplify.UpdateCheck as UpdateCheck

  Internal libraries
import CombinedEnvironment

installHandlers :: CEnv -> IO()
installHandlers cenv = do
  let pm = model cenv
  onEvent pm Initialised $ onViewAsync $ UpdateCheck.condition cenv
