Add support for first iteration of history API

Author: hojberg

src/UnisonShare/Page/ProjectHistoryPage.elm

@@ -135,7 +135,7 @@ fetchProjectBranchHistory _ _ branchRef _ =
                         , body = "And it was really cool"
                         }
                     , BranchHistory.Changeset
-                        { hash = Hash.unsafeFromString "namespacehash3"
+                        { causalHash = Hash.unsafeFromString "namespacehash3"
                         , updates =
                             [ { hash = Hash.unsafeFromString "definitionhash1"
                               , fqn = FQN.fromString "List.map"
@@ -279,7 +279,7 @@ viewHistoryEntry appContext entry =
             viewHistoryEntry_
                 "history-entry_changeset"
                 Icon.historyNode
-                { leftTitle = Hash.view changeset.hash, rightTitle = text numChanges }
+                { leftTitle = Hash.view changeset.causalHash, rightTitle = text numChanges }
                 [ viewCardContent changeset ]
 
 

src/UnisonShare/Project/BranchHistory.elm

@@ -35,7 +35,7 @@ type alias CommentDetails =
 
 
 type alias ChangesetDetails =
-    { hash : Hash
+    { causalHash : Hash
     , updates : List Change
     , removes : List Change
     , aliases : List Change
@@ -81,29 +81,37 @@ decodeComment =
         |> requiredAt [ "comment", "body" ] Decode.string
 
 
+decodeChange : Decode.Decoder Change
+decodeChange =
+    Decode.succeed Change
+        |> required "hash" Hash.decode
+        |> required "fqn" FQN.decode
+
+
 decodeChangeset : Decode.Decoder HistoryEntry
 decodeChangeset =
     let
-        decodeChange =
-            Decode.succeed Change
-                |> required "hash" Hash.decode
-                |> required "fqn" FQN.decode
-
-        toChangeset hash updates removes aliases renames =
+        toChangeset hash =
+            -- updates removes aliases renames =
             Changeset
-                { hash = hash
-                , updates = updates
-                , removes = removes
-                , aliases = aliases
-                , renames = renames
+                { causalHash = hash
+                , updates = [] --updates
+                , removes = [] --removes
+                , aliases = [] --aliases
+                , renames = [] --renames
                 }
     in
     Decode.succeed toChangeset
-        |> required "hash" Hash.decode
-        |> required "updates" (Decode.list decodeChange)
-        |> required "removes" (Decode.list decodeChange)
-        |> required "aliases" (Decode.list decodeChange)
-        |> required "renames" (Decode.list decodeChange)
+        |> required "causalHash" Hash.decode
+
+
+
+{-
+   |> required "updates" (Decode.list decodeChange)
+   |> required "removes" (Decode.list decodeChange)
+   |> required "aliases" (Decode.list decodeChange)
+   |> required "renames" (Decode.list decodeChange)
+-}
 
 
 decodeHistoryEntry : Decode.Decoder HistoryEntry

src/UnisonShare/ProjectContributionFormModal.elm

@@ -14,7 +14,6 @@ import Html.Attributes exposing (class)
 import Http
 import Json.Decode as Decode
 import Lib.HttpApi as HttpApi exposing (HttpResult)
-import Lib.Util as Util
 import Maybe.Extra as MaybeE
 import RemoteData exposing (RemoteData(..), WebData)
 import String.Extra as StringE