Не могу декодировать сессию из порта вяза

Question

Попытка заставить порты elm работать для поддержания сеанса.

В index.html скрипт включает в себя следующий слушатель:

  window.addEventListener("load", function(event) {
    app.ports.onSessionChange.send(localStorage.session);
  }, false);

localStorage.session выглядит так (и остается там до тех пор, пока я не выйду):

{"email":"[e-mail]","token":"eyJhbG...","user_id":1,"handle":"me"}

Определение в Ports.elm является:

port onSessionChange : (Value -> msg) -> Sub msg

Этот порт подключен к Main.elm здесь (дайте мне знать, если я забыл включить некоторые из определений ниже):

subscriptions : Model -> Sub Msg
subscriptions model =
    Ports.onSessionChange sessionChange


sessionChange : Json.Decode.Value -> Msg
sessionChange value =
    let
        result =
            Json.Decode.decodeValue sessionDecoder value
    in
        case result of
            Ok sess ->
                SetSession (Just sess)

            Err err ->
                SetSession Nothing

    ...


type alias Session =
    { email : String
    , token : String
    , user_id : Int
    , handle : String
    }

    ...

import Json.Decode as Decode exposing (..)
import Json.Decode.Pipeline as Pipeline exposing (decode, required)

sessionDecoder : Decode.Decoder Session
sessionDecoder =
    Pipeline.decode Session
        |> Pipeline.required "email" Decode.string
        |> Pipeline.required "token" Decode.string
        |> Pipeline.required "user_id" Decode.int
        |> Pipeline.required "handle" Decode.string

    ...

type Msg
    = NoOp
    | SetSession (Maybe Session)

    ...


update msg model =
    case msg of
        SetSession session ->
            case Debug.log "session = " session of
                Just sess ->
                    ({ model | session = sess } , Cmd.none)

                Nothing ->
                    (model, Cmd.none)

Debug.log "session" дисплеи Nothing в консоли, когда страница загружается, поэтому JS разговаривает с elm, но кажется, что декодер не работает. Есть идеи?

Answer 1

Я включил ваш код в минимальный рабочий пример, и все работает отлично. Вы можете записать значение localStorage.session изнутри части javascript, чтобы убедиться, что это допустимое значение JSON.