blucontrol-0.3.0.0: Main.hs

{-# LANGUAGE TypeApplications #-}

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
import Blucontrol.RGB.Temperature

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