downgrade to working commit

src/Commands.elm

@@ -45,11 +45,11 @@ rootHashUpdate node acc path =
             case 
 
 -}
-getPureData : Link -> Cmd Msg
-getPureData link =
-    Http.getString ( ipfsGatewayUrl ++ link.hash )
+getPureData : Hash -> Cmd Msg
+getPureData hash =
+    Http.getString ( ipfsGatewayUrl ++ hash )
         |> RemoteData.sendRequest
-        |> Cmd.map (Msgs.UpdatePureData link)
+        |> Cmd.map Msgs.UpdatePureData
 
 {-}
 getData : List Link -> Cmd Msg
@@ -148,7 +148,7 @@ linkDecoder =
         |> required "Name" Decode.string
         |> required "Hash" Decode.string
         |> required "Size" Decode.int
-        |> hardcoded ""
+
 
 headerDecoder : Decode.Decoder ModifiedObject
 headerDecoder =

src/Models.elm

@@ -28,7 +28,6 @@ type alias Link =
     { name : Name
     , hash : Hash
     , size : Int
-    , data : Data
     }
 
 type alias Header =

src/Msgs.elm

@@ -14,5 +14,5 @@ type Msg
     | GetModifiedObject (WebData Hash)
     | GetObject (WebData Object)
     | GetIpfsHash (WebData Hash)
-    | UpdatePureData (WebData String) Link
+    | UpdatePureData (WebData String)
     | GetData Hash

src/Update.elm

@@ -26,8 +26,7 @@ update msg model =
             object =
                 RemoteData.withDefault {links = [], data = ""} response
         in
-
-        ( { model | object = object }, Cmd.batch <| List.map (\a -> getPureData a.hash) object.links )
+            ( { model | object = object }, Cmd.batch <| List.map (\a -> getPureData a.hash) object.links )
 
     Msgs.GetModifiedObject response ->
         let
@@ -45,21 +44,16 @@ update msg model =
 
     Msgs.UpdatePureData response ->
         let
-            object =
-                model.object
-            links =
-                object.links
-            data = RemoteData.withDefault "" response
-            newData =
-                { object | link = { link | data = data } }
+            newData = RemoteData.withDefault "" response
         in
-            ( { model | object = newData }, Cmd.none )
+            ( { model | data = newData }, Cmd.none )
 
     Msgs.RemoveLink link ->
         ( model, removeLink model.hash link )
 
     Msgs.AddLink name hash ->
        ( model, addLink model.hash name hash )
-
+{-
     Msgs.GetData link ->
-        ( model, getPureData link.hash )
+        ( model, getPureData link.hash )}
+-}

src/View.elm

@@ -55,11 +55,6 @@ viewLink link =
             , Event.onClick <| Msgs.GetObjectRequest link.name link.hash
             ]
             <| E.text link.name
-        , E.button None
-            [ padding 5
-            , Event.onClick <| Msgs.GetData link.hash
-            ]
-            <| E.text link.data
         , E.button None
             [ padding 5
             , Event.onClick <| Msgs.RemoveLink link