asd.purs

setLight
  :: forall e
   . LuminaireId
  -> LightId
  -> LightColor
  -> (Maybe Milliseconds)
  -> Luminaires
  -> Eff (ref :: REF, now :: NOW | e) Boolean
setLight id lid color transitionTime luminaires = do
  light <- getLuminaireLight id lid luminaires
  luminaire <- getLuminaire id luminaires

  case light of
    Just light' -> do
      nextLight <- nextState light' color transitionTime

      case luminaire of
        Just luminaire' -> do
          let curLights = _.lights (unwrap luminaire')
          let nextLights = insert lid nextLight curLights
          let nextLuminaire = wrap { gateway: _.gateway (unwrap luminaire'), lights: nextLights }

          modifyRef luminaires
            (\l -> insert id nextLuminaire l)
          pure true
        _ ->
          pure false
    _ ->
      pure false