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

     1  module Build.Output.Models exposing (OutputModel, OutputState(..))
     2  
     3  import Build.StepTree.Models exposing (StepTreeModel)
     4  import Routes exposing (Highlight)
     5  
     6  
     7  type alias OutputModel =
     8      { steps : Maybe StepTreeModel
     9      , state : OutputState
    10      , eventSourceOpened : Bool
    11      , eventStreamUrlPath : Maybe String
    12      , highlight : Highlight
    13      }
    14  
    15  
    16  type OutputState
    17      = StepsLoading
    18      | StepsLiveUpdating
    19      | StepsComplete