diff --git a/src/Model/Graph/Tag.elm b/src/Model/Graph/Tag.elm index 9d262efe..afb45d99 100644 --- a/src/Model/Graph/Tag.elm +++ b/src/Model/Graph/Tag.elm @@ -36,7 +36,7 @@ type alias Input = userTagToApiTag : { currency : String, entity : Int, address : String } -> Bool -> UserTag -> Api.Data.AddressTag -userTagToApiTag { currency, address} isClusterDefiner tag = +userTagToApiTag { currency, address } isClusterDefiner tag = { abuse = tag.abuse , address = address diff --git a/tests/Data/Api.elm b/tests/Data/Api.elm index 646605a7..081b3982 100644 --- a/tests/Data/Api.elm +++ b/tests/Data/Api.elm @@ -16,13 +16,13 @@ tx1 : Api.Data.TxUtxo tx1 = let outputs = - [ { address = [ Id.address3 |> Id.id ], value = values } - , { address = [ Id.address4 |> Id.id ], value = values } - , { address = [ Id.address5 |> Id.id ], value = values } + [ { address = [ Id.address3 |> Id.id ], value = values, index = Nothing } + , { address = [ Id.address4 |> Id.id ], value = values, index = Nothing } + , { address = [ Id.address5 |> Id.id ], value = values, index = Nothing } ] inputs = - [ { address = [ Id.address1 |> Id.id ], value = values } + [ { address = [ Id.address1 |> Id.id ], value = values, index = Nothing } ] in { coinbase = False @@ -44,11 +44,11 @@ tx2 : Api.Data.TxUtxo tx2 = let inputs = - [ { address = [ Id.address6 |> Id.id ], value = values } + [ { address = [ Id.address6 |> Id.id ], value = values, index = Nothing } ] outputs = - [ { address = [ Id.address1 |> Id.id ], value = values } + [ { address = [ Id.address1 |> Id.id ], value = values, index = Nothing } ] in { coinbase = False @@ -70,11 +70,11 @@ tx3 : Api.Data.TxUtxo tx3 = let inputs = - [ { address = [ Id.address1 |> Id.id ], value = values } + [ { address = [ Id.address1 |> Id.id ], value = values, index = Nothing } ] outputs = - [ { address = [ Id.address7 |> Id.id ], value = values } + [ { address = [ Id.address7 |> Id.id ], value = values, index = Nothing } ] in { coinbase = False