解碼JSON到榆樹也許

Question

鑑於以下JSON：

[ 
    { 
    "id": 0, 
    "name": "Item 1", 
    "desc": "The first item" 
    }, 
    { 
    "id": 1, 
    "name": "Item 2" 
    } 
] 

你如何解碼是爲以下型號：

type alias Model = 
    { id : Int 
    , name : String 
    , desc : Maybe String 
    } 

Answer 1

布賴恩·希克斯對JSON解碼器系列文章，你可能想要專門查看Adding New Fields to Your JSON Decoder（它處理您可能會或可能不會收到來自JSON對象的字段的場景）。首先，你可能會想要使用elm-decode-pipeline package。然後您可以使用optional function來聲明您的desc字段可能不在那裏。正如Brian在文章中指出的那樣，您可以使用來自the core Json.Decode package的maybe解碼器，但它會產生Nothing的任何失敗，而不僅僅是null。有是 a nullable解碼器，如果你不想使用流水線模塊，你也可以考慮使用它。

你的解碼器可以是這個樣子：

modelDecoder : Decoder Model 
modelDecoder = 
    decode Model 
     |> required "id" int 
     |> required "name" string 
     |> optional "desc" (Json.map Just string) Nothing 

Here's a live example on Ellie.

Answer 2

布賴恩·希克斯"Adding New Fields to Your JSON Decoder"後幫我制定如下。有關工作示例，請參閱Ellie

import Html exposing (..) 
import Json.Decode as Decode exposing (Decoder) 
import Json.Decode.Pipeline as JP 
import String 

type alias Item = 
    { id : Int 
    , name : String 
    , desc : Maybe String 
    } 


main = 
    Decode.decodeString (Decode.list itemDecoder) payload 
     |> toString 
     |> String.append "JSON " 
     |> text 


itemDecoder : Decoder Item 
itemDecoder = 
    JP.decode Item 
     |> JP.required "id" Decode.int 
     |> JP.required "name" Decode.string 
     |> JP.optional "desc" (Decode.map Just Decode.string) Nothing 

Answer 3

所以，如果你正在尋找不需要Json.Decode.Pipeline零依賴的解決方案。

import Json.Decode as Decode exposing (Decoder) 


modelDecoder : Decoder Model 
modelDecoder = 
    Decode.map3 Model 
     (Decode.field "id" Decode.int) 
     (Decode.field "name" Decode.string) 
     (Decode.maybe <| Decode.field "desc" Decode.string) 

如果你想這樣做，使用Model構造爲適用函子（因爲你需要更多的8個項目）。

import Json.Decode as Decode 
import Json.Decode.Extra as Decode exposing ((|:)) 


modelDecoder : Decoder Model 
modelDecoder = 
    Decode.succeed Model 
     |: Decode.field "id" Decode.int 
     |: Decode.field "name" Decode.string 
     |: Decode.maybe (Decode.field "desc" Decode.string) 

兩者都可以與List s內使用Decode.list modelDecoder。我希望應用函數在標準庫中，但您必須涉及所有* -extra庫以獲取這些功能。瞭解應用函數的工作方式將幫助您更好地理解線條，因此我建議閱讀它們。 Decode Pipeline解決方案將這個簡單的概念抽象出來，但是當您遇到需要Result.andMap或任何其他andMap時，因爲您的模塊或DSL沒有mapN，您將知道如何獲得解決方案。