crap.purs

newtype Light = Light
  { color :: LightColor
  , prevColor :: LightColor
  --, transitionStart :: Instant
  , transitionStart :: Milliseconds
  , transitionTime :: Milliseconds
  }

type Lights = Map LightId Light

type StupidIntermediateThingy =
  { color :: LightColor
  , prevColor :: LightColor
  , transitionStart :: Number
  , transitionTime :: Number
  }
type StupidIntermediateStrMapThingy = StrMap StupidIntermediateThingy

-- WTF instant creates a Maybe Instant
-- (so i replaced Instant with Milliseconds so i dont need to deal with this)
toLight :: StupidIntermediateStrMapThingy -> Lights
toLight =
  foldlWithIndex (\k m v -> do
    let transitionStart = Milliseconds v.transitionStart
    let transitionTime = Milliseconds v.transitionTime
    insert (LightId k) (Light v { transitionStart = transitionStart, transitionTime = transitionTime }) m
  ) empty

registerLuminaireHandler :: forall e. Luminaires -> Handler (ref :: REF | e)
registerLuminaireHandler state = do
  idParam <- getRouteParam "id"
  gatewayParam :: Maybe String <- getBodyParam "gateway"
  body :: Maybe String <- hush <$> runExcept <<< readString <$> getBody'
  
  -- lmao
  let (json' :: Maybe (Either MultipleErrors StupidIntermediateStrMapThingy)) = readJSON <$> body
  let (json :: Maybe StupidIntermediateStrMapThingy) = hush =<< json'

  let asd = toLight <$> json

  pure unit