From 1317c6de361af9d1f84abd9f0dba0408c5ef1831 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andr=C3=A9=20Dietrich?= <andre.dietrich@ovgu.de>
Date: Thu, 12 Sep 2019 18:38:20 +0200
Subject: added special functions for decoding StyleDefinitions

---
 src/Mapbox/Source.elm | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

(limited to 'src/Mapbox/Source.elm')

diff --git a/src/Mapbox/Source.elm b/src/Mapbox/Source.elm
index 68d1862..5ca38ea 100644
--- a/src/Mapbox/Source.elm
+++ b/src/Mapbox/Source.elm
@@ -1,6 +1,6 @@
 module Mapbox.Source exposing
     ( Source, SourceOption
-    , Id, Url
+    , Id, Url, decode
     , vector, vectorFromUrl, VectorSource
     , raster, tileSize, rasterFromUrl, RasterSource
     , rasterDEMMapbox, rasterDEMTerrarium
@@ -17,7 +17,7 @@ module Mapbox.Source exposing
 
 @docs Source, SourceOption
 
-@docs Id, Url
+@docs Id, Url, decode
 
 
 ### Vector
@@ -58,7 +58,9 @@ Tiled sources can also take the following attributes:
 
 -}
 
+import Dict
 import Internal
+import Json.Decode as Decode exposing (Decoder)
 import Json.Encode exposing (Value)
 import LngLat exposing (LngLat)
 import Mapbox.Expression as Expression exposing (DataExpression, Expression)
@@ -122,6 +124,18 @@ encode (Source _ value) =
     value
 
 
+{-| -}
+decode : Decoder (List Source)
+decode =
+    Decode.dict Decode.value
+        |> Decode.map (Dict.toList >> List.map tupleToSource)
+
+
+tupleToSource : ( String, Value ) -> Source
+tupleToSource ( id, value ) =
+    Source id value
+
+
 {-| -}
 getId : Source -> String
 getId (Source k _) =
-- 
cgit v1.2.3