junk.purs

handleMessage
  :: forall e
   . SockJS.Connection
  -> Message
  -> Eff (console :: CONSOLE | e) Unit
handleMessage conn (CurrentQueue message) = do
  -- how to modify state here?
  log $ "queue message: " <> unsafeStringify message
handleMessage conn (PlayPause message) = do
  log $ "play/pause message: " <> unsafeStringify message
handleMessage conn (Skip message) = do
  log $ "skip message: " <> unsafeStringify message
handleMessage conn (Seek message) = do
  log $ "seek message: " <> unsafeStringify message

decodeMessage
  :: forall e
   . SockJS.Connection
  -> SockJS.Message
  -> Eff (console :: CONSOLE | e) Unit
decodeMessage conn message = do
  let (decoded :: Maybe Message) = hush $ readJSON message
  _ <- traverse (handleMessage conn) decoded
  pure unit

runApp
 :: forall e
  . SockJS.Server
 -> StateT AppState (Eff (console :: CONSOLE | e)) Unit
runApp sockjs = do
  liftEff $ SockJS.onConnection sockjs \conn -> do
    log "client connected"
    SockJS.onData conn $ decodeMessage conn
    SockJS.onClose conn $ log "client disconnected"