Add lamassu-admin-elm to this repo (#185)
This commit is contained in:
parent
5ee7e40872
commit
f4fc9d6328
134 changed files with 28171 additions and 83 deletions
29
lamassu-admin-elm/src/StatusTypes.elm
Normal file
29
lamassu-admin-elm/src/StatusTypes.elm
Normal file
|
|
@ -0,0 +1,29 @@
|
|||
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
|
||||
Loading…
Add table
Add a link
Reference in a new issue