lhae-0.0.2: src/Controller/SaveConfig.hs

module Controller.SaveConfig (configFilePath,eventHandler)
    where

import Control.Monad.Trans (liftIO)
import Controller (Controller,currentConfig)
import Config (save)
import Constants (configFilePath)

eventHandler :: Controller ()
eventHandler = do
  config <- currentConfig
  liftIO $ configFilePath >>= save `flip` config