blucontrol-0.2.0.0: Main.hs

module Main where

import Blucontrol
import Blucontrol.Control.Count
import Blucontrol.Control.Print
import Blucontrol.Control.Wait
import Blucontrol.Gamma.Linear
import Blucontrol.Recolor.X

main :: IO ()
main = blucontrol configControl
  where configControl = ConfigControl { runControl = runControlPrintT !> runControlCountT def !> runControlWaitT def
                                      , runGamma = runGammaLinearT rgbMap
                                      , runRecolor = runRecolorXTIO def
                                      }
        rgbMap = 00:.00 ==> temperature 4000
            :| [ 08:.00 ==> temperature 4600
               , 12:.00 ==> temperature 6600
               , 18:.00 ==> temperature 6000
               ]