Add expired status to cash-out txs

lamassu-admin-elm/src/Common/TransactionTypes.elm

@@ -50,6 +50,7 @@ type alias CashOutTxRec =
     , error : Maybe String
     , created : Date
     , confirmed : Bool
+    , expired : Bool
     }
 
 

lamassu-admin-elm/src/Transaction/Decoder.elm

@@ -104,3 +104,4 @@ cashOutTxDecoder =
         |> required "error" (nullable string)
         |> required "created" date
         |> required "confirmedAt" confirmedDecoder
+        |> required "expired" bool

lamassu-admin-elm/src/Transaction/View.elm

@@ -6,6 +6,7 @@ import RemoteData exposing (..)
 import Common.TransactionTypes exposing (..)
 import Transaction.Types exposing (..)
 import Numeral exposing (format)
+import Maybe.Extra exposing (isJust)
 
 
 -- import Css.Admin exposing (..)
@@ -53,6 +54,15 @@ cashInTxView tx =
 cashOutTxView : CashOutTxRec -> Html Msg
 cashOutTxView tx =
     let
+        cancelStatus =
+            if isJust tx.error then
+                "Error"
+            else if tx.dispense then
+                "Success"
+            else if tx.expired then
+                "Expired"
+            else
+                "Pending"
         error =
             case tx.error of
                 Nothing ->
@@ -66,6 +76,7 @@ cashOutTxView tx =
             , div [] [ text "This is a cash-out transaction" ]
             , div [] [ text ("Fiat: " ++ (format "0,0.00" tx.fiat)) ]
             , div [] [ text ("Raw ticker price: " ++ (format "0,0.00" (Maybe.withDefault 0.0 tx.rawTickerPrice))) ]
+            , div [] [ text ("Status: " ++ cancelStatus) ]
             , div [] [ text error ]
             ]
 

lamassu-admin-elm/src/Transactions.elm

@@ -146,6 +146,8 @@ rowView tx =
                         "Error"
                     else if cashOut.dispense then
                         "Success"
+                    else if cashOut.expired then
+                        "Expired"
                     else
                         "Pending"
             in