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

     1  module Message.Callback exposing (Callback(..))
     2  
     3  import Browser.Dom
     4  import Concourse
     5  import Concourse.Pagination exposing (Page, Paginated)
     6  import Http
     7  import Message.Message
     8      exposing
     9          ( DomID
    10          , VersionId
    11          , VersionToggleAction
    12          , VisibilityAction
    13          )
    14  import Time
    15  
    16  
    17  type alias Fetched a =
    18      Result Http.Error a
    19  
    20  
    21  type Callback
    22      = EmptyCallback
    23      | GotCurrentTime Time.Posix
    24      | GotCurrentTimeZone Time.Zone
    25      | BuildTriggered (Fetched Concourse.Build)
    26      | JobBuildsFetched (Fetched ( Page, Paginated Concourse.Build ))
    27      | JobFetched (Fetched Concourse.Job)
    28      | JobsFetched (Fetched (List Concourse.Job))
    29      | PipelineFetched (Fetched Concourse.Pipeline)
    30      | PipelinesFetched (Fetched (List Concourse.Pipeline))
    31      | PipelineToggled Concourse.PipelineIdentifier (Fetched ())
    32      | PipelinesOrdered String (Fetched ())
    33      | UserFetched (Fetched Concourse.User)
    34      | ResourcesFetched (Fetched (List Concourse.Resource))
    35      | BuildResourcesFetched (Fetched ( Int, Concourse.BuildResources ))
    36      | ResourceFetched (Fetched Concourse.Resource)
    37      | VersionedResourcesFetched (Fetched ( Page, Paginated Concourse.VersionedResource ))
    38      | ClusterInfoFetched (Fetched Concourse.ClusterInfo)
    39      | PausedToggled (Fetched ())
    40      | InputToFetched (Fetched ( VersionId, List Concourse.Build ))
    41      | OutputOfFetched (Fetched ( VersionId, List Concourse.Build ))
    42      | VersionPinned (Fetched ())
    43      | VersionUnpinned (Fetched ())
    44      | VersionToggled VersionToggleAction VersionId (Fetched ())
    45      | Checked (Fetched Concourse.Build)
    46      | CommentSet (Fetched ())
    47      | AllTeamsFetched (Fetched (List Concourse.Team))
    48      | AllJobsFetched (Fetched (List Concourse.Job))
    49      | AllResourcesFetched (Fetched (List Concourse.Resource))
    50      | LoggedOut (Fetched ())
    51      | ScreenResized Browser.Dom.Viewport
    52      | BuildJobDetailsFetched (Fetched Concourse.Job)
    53      | BuildFetched (Fetched Concourse.Build)
    54      | BuildPrepFetched Concourse.BuildId (Fetched Concourse.BuildPrep)
    55      | BuildHistoryFetched (Fetched (Paginated Concourse.Build))
    56      | PlanAndResourcesFetched Int (Fetched ( Concourse.BuildPlan, Concourse.BuildResources ))
    57      | BuildAborted (Fetched ())
    58      | VisibilityChanged VisibilityAction Concourse.PipelineIdentifier (Fetched ())
    59      | AllPipelinesFetched (Fetched (List Concourse.Pipeline))
    60      | GotViewport DomID (Result Browser.Dom.Error Browser.Dom.Viewport)
    61      | GotElement (Result Browser.Dom.Error Browser.Dom.Element)