Decoder.elm

import Json.Decode exposing (list, int, string, null, float, Decoder, object2, (:=), at, oneOf)
import Json.Decode.Pipeline exposing (decode, required, custom, requiredAt)

-- trying to get rid of this
type alias NetworksContainer = 
  {
    networks : List Network
  }

-- decoders

networkListDecoder : Decoder (List Network)
networkListDecoder =
    list networkDecoder

-- this is a hack to un-nest the JSON structure
-- I'm sure there's a better way..
networksDecoder : Decoder (List Network)
networksDecoder = 
  Json.Decode.map .networks
    (decode NetworksContainer  
      |> required "networks" networkListDecoder)


networkDecoder : Decoder Network
networkDecoder =
    decode Network 
      |> required "name" string

networks.json

{"networks": [
   {"name" : "foo"},
   {"name" : "bar"},
  ]
}