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

     1  module Resource.Models exposing
     2      ( CheckStatus(..)
     3      , Model
     4      , PageError(..)
     5      , PinnedVersion
     6      , Version
     7      , VersionEnabledState(..)
     8      , VersionId
     9      )
    10  
    11  import Build.Output.Models exposing (OutputModel)
    12  import Concourse
    13  import Concourse.Pagination exposing (Page, Paginated)
    14  import Login.Login as Login
    15  import Pinned exposing (CommentState, ResourcePinState)
    16  import Routes
    17  import Time
    18  
    19  
    20  type PageError
    21      = Empty
    22      | NotFound
    23  
    24  
    25  type CheckStatus
    26      = CheckPending
    27      | CurrentlyChecking Int
    28      | NotChecking
    29  
    30  
    31  type alias Model =
    32      Login.Model
    33          { pageStatus : Result PageError ()
    34          , checkStatus : CheckStatus
    35          , lastChecked : Maybe Time.Posix
    36          , pinnedVersion : PinnedVersion
    37          , now : Maybe Time.Posix
    38          , resourceIdentifier : Concourse.ResourceIdentifier
    39          , currentPage : Page
    40          , versions : Paginated Version
    41          , pinCommentLoading : Bool
    42          , textAreaFocused : Bool
    43          , icon : Maybe String
    44          , isEditing : Bool
    45          , build : Maybe Concourse.Build
    46          , authorized : Bool
    47          , output : Maybe OutputModel
    48          , highlight : Routes.Highlight
    49          }
    50  
    51  
    52  type alias PinnedVersion =
    53      ResourcePinState Concourse.Version VersionId CommentState
    54  
    55  
    56  type VersionEnabledState
    57      = Enabled
    58      | Changing
    59      | Disabled
    60  
    61  
    62  type alias VersionId =
    63      Concourse.VersionedResourceIdentifier
    64  
    65  
    66  type alias Version =
    67      { id : VersionId
    68      , version : Concourse.Version
    69      , metadata : Concourse.Metadata
    70      , enabled : VersionEnabledState
    71      , expanded : Bool
    72      , inputTo : List Concourse.Build
    73      , outputOf : List Concourse.Build
    74      , showTooltip : Bool
    75      }