diff --git a/src/elm/CompoundComponents/Eth/Ethereum.elm b/src/elm/CompoundComponents/Eth/Ethereum.elm index abb7b07..ff3d45d 100644 --- a/src/elm/CompoundComponents/Eth/Ethereum.elm +++ b/src/elm/CompoundComponents/Eth/Ethereum.elm @@ -56,8 +56,7 @@ type CustomerAddress type Account = UnknownAcct | NoAccount - | Acct CustomerAddress (Maybe Decimal) - + | Acct CustomerAddress (Maybe Decimal) (Maybe String) --- FUNCTIONS diff --git a/src/elm/CompoundComponents/Ether/BNTransaction.elm b/src/elm/CompoundComponents/Ether/BNTransaction.elm index 7485f1a..ef7d237 100644 --- a/src/elm/CompoundComponents/Ether/BNTransaction.elm +++ b/src/elm/CompoundComponents/Ether/BNTransaction.elm @@ -451,7 +451,7 @@ getPendingBNTransactionsForAccount maybeNetwork account { transactions } = getUserTxModule : Maybe Network -> Account -> String getUserTxModule maybeNetwork account = case ( maybeNetwork, account ) of - ( Just network, Acct customer _ ) -> + ( Just network, Acct customer _ _ ) -> getTxModule network customer _ ->