github.com/pf-qiu/concourse/v6@v6.7.3-0.20201207032516-1f455d73275f/web/elm/src/Build/Header/Models.elm (about)

     1  module Build.Header.Models exposing
     2      ( BuildPageType(..)
     3      , CurrentOutput(..)
     4      , HistoryItem
     5      , Model
     6      )
     7  
     8  import Build.Output.Models exposing (OutputModel)
     9  import Concourse
    10  import Concourse.BuildStatus as BuildStatus
    11  import Concourse.Pagination exposing (Page)
    12  import Time
    13  
    14  
    15  type alias Model r =
    16      { r
    17          | id : Int
    18          , name : String
    19          , job : Maybe Concourse.JobIdentifier
    20          , scrolledToCurrentBuild : Bool
    21          , history : List HistoryItem
    22          , duration : Concourse.BuildDuration
    23          , status : BuildStatus.BuildStatus
    24          , disableManualTrigger : Bool
    25          , now : Maybe Time.Posix
    26          , fetchingHistory : Bool
    27          , nextPage : Maybe Page
    28          , hasLoadedYet : Bool
    29      }
    30  
    31  
    32  type alias HistoryItem =
    33      { id : Int
    34      , name : String
    35      , status : BuildStatus.BuildStatus
    36      , duration : Concourse.BuildDuration
    37      }
    38  
    39  
    40  type CurrentOutput
    41      = Empty
    42      | Cancelled
    43      | Output OutputModel
    44  
    45  
    46  type BuildPageType
    47      = OneOffBuildPage Concourse.BuildId
    48      | JobBuildPage Concourse.JobBuildIdentifier