29 lines
450 B
Elm
29 lines
450 B
Elm
module StatusTypes exposing (..)
|
|
|
|
import RemoteData exposing (..)
|
|
|
|
|
|
type alias Rate =
|
|
{ crypto : String
|
|
, bid : Float
|
|
, ask : Float
|
|
}
|
|
|
|
|
|
type alias ServerRec =
|
|
{ up : Bool
|
|
, lastPing : Maybe String
|
|
, rates : List Rate
|
|
, machineStatus : String
|
|
, wasConfigured : Bool
|
|
}
|
|
|
|
|
|
type alias StatusRec =
|
|
{ server : ServerRec
|
|
, invalidConfigGroups : List String
|
|
}
|
|
|
|
|
|
type alias WebStatus =
|
|
WebData StatusRec
|