usage dag put object json value instead of string

elm-package.json

@@ -10,6 +10,7 @@
     "exposed-modules": [],
     "dependencies": {
         "BrianHicks/elm-benchmark": "2.0.3 <= v < 3.0.0",
+        "Microsoft/elm-json-tree-view": "1.0.1 <= v < 2.0.0",
         "NoRedInk/elm-decode-pipeline": "3.0.0 <= v < 4.0.0",
         "elm-community/json-extra": "2.1.0 <= v < 3.0.0",
         "elm-community/string-extra": "1.4.0 <= v < 2.0.0",

src/Commands.elm

@@ -157,3 +157,17 @@ headerDecoder =
         |> required "Ipfs-Hash" Decode.string
         |> hardcoded []
 
+objectEncoder : Object -> Value
+objectEncoder object =
+    Encode.object
+        [ ("Data", Encode.string object.data)
+        , ("Links", Encode.list <| List.map linkEncoder object.links)
+        ]
+
+linkEncoder : Link -> Value
+linkEncoder link =
+    Encode.object
+        [ ("Cid", Encode.object [ ("/", Encode.string link.hash) ])
+        , ("Name", Encode.string link.name)
+        , ("Size", Encode.int link.size)
+        ]

src/Msgs.elm

@@ -2,6 +2,7 @@ module Msgs exposing (..)
 
 import Models exposing (Level, Name, Hash, Object, ModifiedObject, Link, Data)
 import RemoteData exposing (WebData)
+import Json.Encode exposing (Value)
 
 
 type Msg 
@@ -16,5 +17,5 @@ type Msg
     | GetIpfsHash (WebData Hash)
     | UpdatePureData (WebData String)
     | DagGet Hash
-    | DagPut String
+    | DagPut Value
     | DagHash String

src/View.elm

@@ -15,6 +15,7 @@ import Style exposing (..)
 import Style.Border as Border
 import Style.Color as Color
 import Style.Font as Font
+import Commands exposing (objectEncoder)
 
 
 view : Model -> Html Msg
@@ -104,7 +105,7 @@ viewControls model =
             <| E.text "get object"
         , E.button Button
             [ padding 5
-            , Event.onClick <| Msgs.DagPut <| maybeRemote viewRawDag model.raw_dag
+            , Event.onClick <| Msgs.DagPut <| objectEncoder <| RemoteData.withDefault {data = "", links = []} model.object
             ]
             <| E.text "set data"
         , E.button Button