D.field "locations" <| D.list <|
D.map3 Location
( D.field "id" D.int )
( D.field "name" D.string )
( D.succeed True )
You use the .succeed decoder. It does not evaluate anything, but gives a sucessful decoding of whatever value you pass to it 