elm/src/Concourse.elm

74 import Json.Decode
75 import Json.Decode.Extra exposing (andMap)
93 decodeAuthToken : Json.Decode.Decoder AuthToken
96         (Json.Decode.succeed (\a b -> ( a, b ))
97             |> andMap (Json.Decode.field "type" Json.Decode.string)
98             |> andMap (Json.Decode.field "value" Json.Decode.string)
103 authTokenFromTuple : ( String, String ) -> Result Json.Decode.Error AuthToken
110             Err <| Json.Decode.Failure "unknown token type" <| Json.Encode.string token
210 decodeBuild : Json.Decode.Decoder Build
212     Json.Decode.succeed Build
213         |> andMap (Json.Decode.field "id" Json.Decode.int)
214         |> andMap (Json.Decode.field "name" Json.Decode.string)
216             (Json.Decode.maybe
217                 (Json.Decode.succeed JobIdentifier
218                     |> andMap (Json.Decode.field "team_name" Json.Decode.string)
219                     |> andMap (Json.Decode.field "pipeline_name" Json.Decode.string)
220                     |> andMap (Json.Decode.field "job_name" Json.Decode.string)
223         |> andMap (Json.Decode.field "status" Concourse.BuildStatus.decodeBuildStatus)
225             (Json.Decode.succeed BuildDuration
226 …|> andMap (Json.Decode.maybe (Json.Decode.field "start_time" (Json.Decode.map dateFromSeconds Json…
227 …|> andMap (Json.Decode.maybe (Json.Decode.field "end_time" (Json.Decode.map dateFromSeconds Json.D…
229 …|> andMap (Json.Decode.maybe (Json.Decode.field "reap_time" (Json.Decode.map dateFromSeconds Json.…
252 decodeBuildPrep : Json.Decode.Decoder BuildPrep
254     Json.Decode.succeed BuildPrep
255         |> andMap (Json.Decode.field "paused_pipeline" decodeBuildPrepStatus)
256         |> andMap (Json.Decode.field "paused_job" decodeBuildPrepStatus)
257         |> andMap (Json.Decode.field "max_running_builds" decodeBuildPrepStatus)
258         |> andMap (Json.Decode.field "inputs" <| Json.Decode.dict decodeBuildPrepStatus)
259         |> andMap (Json.Decode.field "inputs_satisfied" decodeBuildPrepStatus)
260 …|> andMap (defaultTo Dict.empty <| Json.Decode.field "missing_input_reasons" <| Json.Decode.dict J…
263 decodeBuildPrepStatus : Json.Decode.Decoder BuildPrepStatus
265     customDecoder Json.Decode.string <|
278 …        Err <| Json.Decode.Failure "unknown build preparation status" <| Json.Encode.string unknown
311 decodeBuildResources : Json.Decode.Decoder BuildResources
313     Json.Decode.succeed BuildResources
314         |> andMap (Json.Decode.field "inputs" <| Json.Decode.list decodeResourcesInput)
315         |> andMap (Json.Decode.field "outputs" <| Json.Decode.list decodeResourcesOutput)
318 decodeResourcesInput : Json.Decode.Decoder BuildResourcesInput
320     Json.Decode.succeed BuildResourcesInput
321         |> andMap (Json.Decode.field "name" Json.Decode.string)
322         |> andMap (Json.Decode.field "version" decodeVersion)
323         |> andMap (Json.Decode.field "first_occurrence" Json.Decode.bool)
326 decodeResourcesOutput : Json.Decode.Decoder BuildResourcesOutput
328     Json.Decode.succeed BuildResourcesOutput
329         |> andMap (Json.Decode.field "name" Json.Decode.string)
330         |> andMap (Json.Decode.field "version" <| Json.Decode.dict Json.Decode.string)
444     | JsonRaw Json.Decode.Value
447 decodeJsonValue : Json.Decode.Decoder JsonValue
449     Json.Decode.oneOf
450         [ Json.Decode.keyValuePairs decodeSimpleJsonValue |> Json.Decode.map JsonObject
451         , Json.Decode.list decodeSimpleJsonValue |> Json.Decode.map JsonArray
456 decodeSimpleJsonValue : Json.Decode.Decoder JsonValue
458     Json.Decode.oneOf
459         [ Json.Decode.string |> Json.Decode.map JsonString
460         , Json.Decode.float |> Json.Decode.map JsonNumber
461         , Json.Decode.value |> Json.Decode.map JsonRaw
471 decodeBuildPlan : Json.Decode.Decoder BuildPlan
473     Json.Decode.at [ "plan" ] <|
477 decodeBuildPlan_ : Json.Decode.Decoder BuildPlan
479     Json.Decode.succeed BuildPlan
480         |> andMap (Json.Decode.field "id" Json.Decode.string)
482             (Json.Decode.oneOf
484                 [ Json.Decode.field "task" <|
486                 , Json.Decode.field "get" <|
488                 , Json.Decode.field "artifact_input" <|
490                 , Json.Decode.field "put" <|
492                 , Json.Decode.field "artifact_output" <|
494                 , Json.Decode.field "dependent_get" <|
496                 , Json.Decode.field "aggregate" <|
498                 , Json.Decode.field "in_parallel" <|
500                 , Json.Decode.field "do" <|
502                 , Json.Decode.field "on_success" <|
504                 , Json.Decode.field "on_failure" <|
506                 , Json.Decode.field "on_abort" <|
508                 , Json.Decode.field "on_error" <|
510                 , Json.Decode.field "ensure" <|
512                 , Json.Decode.field "try" <|
514                 , Json.Decode.field "retry" <|
516                 , Json.Decode.field "timeout" <|
518                 , Json.Decode.field "set_pipeline" <|
520                 , Json.Decode.field "load_var" <|
522                 , Json.Decode.field "across" <|
528 decodeBuildStepTask : Json.Decode.Decoder BuildStep
530     Json.Decode.succeed BuildStepTask
531         |> andMap (Json.Decode.field "name" Json.Decode.string)
534 decodeBuildStepArtifactInput : Json.Decode.Decoder BuildStep
536     Json.Decode.succeed BuildStepArtifactInput
537         |> andMap (Json.Decode.field "name" Json.Decode.string)
540 decodeBuildStepGet : Json.Decode.Decoder BuildStep
542     Json.Decode.succeed BuildStepGet
543         |> andMap (Json.Decode.field "name" Json.Decode.string)
544         |> andMap (Json.Decode.maybe <| Json.Decode.field "version" decodeVersion)
547 decodeBuildStepArtifactOutput : Json.Decode.Decoder BuildStep
549     Json.Decode.succeed BuildStepArtifactOutput
550         |> andMap (Json.Decode.field "name" Json.Decode.string)
553 decodeBuildStepPut : Json.Decode.Decoder BuildStep
555     Json.Decode.succeed BuildStepPut
556         |> andMap (Json.Decode.field "name" Json.Decode.string)
559 decodeBuildStepAggregate : Json.Decode.Decoder BuildStep
561     Json.Decode.succeed BuildStepAggregate
562         |> andMap (Json.Decode.array (lazy (\_ -> decodeBuildPlan_)))
565 decodeBuildStepInParallel : Json.Decode.Decoder BuildStep
567     Json.Decode.succeed BuildStepInParallel
568         |> andMap (Json.Decode.field "steps" <| Json.Decode.array (lazy (\_ -> decodeBuildPlan_)))
571 decodeBuildStepDo : Json.Decode.Decoder BuildStep
573     Json.Decode.succeed BuildStepDo
574         |> andMap (Json.Decode.array (lazy (\_ -> decodeBuildPlan_)))
577 decodeBuildStepOnSuccess : Json.Decode.Decoder BuildStep
579     Json.Decode.map BuildStepOnSuccess
580         (Json.Decode.succeed HookedPlan
581             |> andMap (Json.Decode.field "step" <| lazy (\_ -> decodeBuildPlan_))
582             |> andMap (Json.Decode.field "on_success" <| lazy (\_ -> decodeBuildPlan_))
586 decodeBuildStepOnFailure : Json.Decode.Decoder BuildStep
588     Json.Decode.map BuildStepOnFailure
589         (Json.Decode.succeed HookedPlan
590             |> andMap (Json.Decode.field "step" <| lazy (\_ -> decodeBuildPlan_))
591             |> andMap (Json.Decode.field "on_failure" <| lazy (\_ -> decodeBuildPlan_))
595 decodeBuildStepOnAbort : Json.Decode.Decoder BuildStep
597     Json.Decode.map BuildStepOnAbort
598         (Json.Decode.succeed HookedPlan
599             |> andMap (Json.Decode.field "step" <| lazy (\_ -> decodeBuildPlan_))
600             |> andMap (Json.Decode.field "on_abort" <| lazy (\_ -> decodeBuildPlan_))
604 decodeBuildStepOnError : Json.Decode.Decoder BuildStep
606     Json.Decode.map BuildStepOnError
607         (Json.Decode.succeed HookedPlan
608             |> andMap (Json.Decode.field "step" <| lazy (\_ -> decodeBuildPlan_))
609             |> andMap (Json.Decode.field "on_error" <| lazy (\_ -> decodeBuildPlan_))
613 decodeBuildStepEnsure : Json.Decode.Decoder BuildStep
615     Json.Decode.map BuildStepEnsure
616         (Json.Decode.succeed HookedPlan
617             |> andMap (Json.Decode.field "step" <| lazy (\_ -> decodeBuildPlan_))
618             |> andMap (Json.Decode.field "ensure" <| lazy (\_ -> decodeBuildPlan_))
622 decodeBuildStepTry : Json.Decode.Decoder BuildStep
624     Json.Decode.succeed BuildStepTry
625         |> andMap (Json.Decode.field "step" <| lazy (\_ -> decodeBuildPlan_))
628 decodeBuildStepRetry : Json.Decode.Decoder BuildStep
630     Json.Decode.succeed BuildStepRetry
631         |> andMap (Json.Decode.array (lazy (\_ -> decodeBuildPlan_)))
634 decodeBuildStepTimeout : Json.Decode.Decoder BuildStep
636     Json.Decode.succeed BuildStepTimeout
637         |> andMap (Json.Decode.field "step" <| lazy (\_ -> decodeBuildPlan_))
640 decodeBuildSetPipeline : Json.Decode.Decoder BuildStep
642     Json.Decode.succeed BuildStepSetPipeline
643         |> andMap (Json.Decode.field "name" Json.Decode.string)
646 decodeBuildStepLoadVar : Json.Decode.Decoder BuildStep
648     Json.Decode.succeed BuildStepLoadVar
649         |> andMap (Json.Decode.field "name" Json.Decode.string)
652 decodeBuildStepAcross : Json.Decode.Decoder BuildStep
654     Json.Decode.map BuildStepAcross
655         (Json.Decode.succeed AcrossPlan
657                 (Json.Decode.field "vars" <|
658                     Json.Decode.list <|
659                         Json.Decode.field "name" Json.Decode.string
662                 (Json.Decode.field "steps" <|
663                     Json.Decode.list <|
664                         Json.Decode.map2 Tuple.pair
665                             (Json.Decode.field "values" <| Json.Decode.list decodeJsonValue)
666                             (Json.Decode.field "step" decodeBuildPlan_)
681 decodeInfo : Json.Decode.Decoder ClusterInfo
683     Json.Decode.succeed ClusterInfo
684         |> andMap (Json.Decode.field "version" Json.Decode.string)
685         |> andMap (defaultTo "" <| Json.Decode.field "cluster_name" Json.Decode.string)
750 decodeJob : Json.Decode.Decoder Job
752     Json.Decode.succeed Job
753         |> andMap (Json.Decode.field "name" Json.Decode.string)
754         |> andMap (Json.Decode.field "pipeline_name" Json.Decode.string)
755         |> andMap (Json.Decode.field "team_name" Json.Decode.string)
756         |> andMap (Json.Decode.maybe (Json.Decode.field "next_build" decodeBuild))
757         |> andMap (Json.Decode.maybe (Json.Decode.field "finished_build" decodeBuild))
758         |> andMap (Json.Decode.maybe (Json.Decode.field "transition_build" decodeBuild))
759         |> andMap (defaultTo False <| Json.Decode.field "paused" Json.Decode.bool)
760         |> andMap (defaultTo False <| Json.Decode.field "disable_manual_trigger" Json.Decode.bool)
761         |> andMap (defaultTo [] <| Json.Decode.field "inputs" <| Json.Decode.list decodeJobInput)
762         |> andMap (defaultTo [] <| Json.Decode.field "outputs" <| Json.Decode.list decodeJobOutput)
763 …      |> andMap (defaultTo [] <| Json.Decode.field "groups" <| Json.Decode.list Json.Decode.string)
776 decodeJobInput : Json.Decode.Decoder JobInput
778     Json.Decode.succeed JobInput
779         |> andMap (Json.Decode.field "name" Json.Decode.string)
780         |> andMap (Json.Decode.field "resource" Json.Decode.string)
781 …      |> andMap (defaultTo [] <| Json.Decode.field "passed" <| Json.Decode.list Json.Decode.string)
782         |> andMap (defaultTo False <| Json.Decode.field "trigger" Json.Decode.bool)
793 decodeJobOutput : Json.Decode.Decoder JobOutput
795     Json.Decode.succeed JobOutput
796         |> andMap (Json.Decode.field "name" Json.Decode.string)
797         |> andMap (Json.Decode.field "resource" Json.Decode.string)
847 decodePipeline : Json.Decode.Decoder Pipeline
849     Json.Decode.succeed Pipeline
850         |> andMap (Json.Decode.field "id" Json.Decode.int)
851         |> andMap (Json.Decode.field "name" Json.Decode.string)
852         |> andMap (Json.Decode.field "paused" Json.Decode.bool)
853         |> andMap (Json.Decode.field "archived" Json.Decode.bool)
854         |> andMap (Json.Decode.field "public" Json.Decode.bool)
855         |> andMap (Json.Decode.field "team_name" Json.Decode.string)
856 …      |> andMap (defaultTo [] <| Json.Decode.field "groups" (Json.Decode.list decodePipelineGroup))
857 …|> andMap (Json.Decode.maybe (Json.Decode.at [ "display", "background_image" ] Json.Decode.string))
869 decodePipelineGroup : Json.Decode.Decoder PipelineGroup
871     Json.Decode.succeed PipelineGroup
872         |> andMap (Json.Decode.field "name" Json.Decode.string)
873         |> andMap (defaultTo [] <| Json.Decode.field "jobs" <| Json.Decode.list Json.Decode.string)
874 …   |> andMap (defaultTo [] <| Json.Decode.field "resources" <| Json.Decode.list Json.Decode.string)
943 decodeResource : Json.Decode.Decoder Resource
945     Json.Decode.succeed Resource
946         |> andMap (Json.Decode.field "team_name" Json.Decode.string)
947         |> andMap (Json.Decode.field "pipeline_name" Json.Decode.string)
948         |> andMap (Json.Decode.field "name" Json.Decode.string)
949         |> andMap (Json.Decode.maybe (Json.Decode.field "icon" Json.Decode.string))
950         |> andMap (defaultTo False <| Json.Decode.field "failing_to_check" Json.Decode.bool)
951         |> andMap (defaultTo "" <| Json.Decode.field "check_error" Json.Decode.string)
952         |> andMap (defaultTo "" <| Json.Decode.field "check_setup_error" Json.Decode.string)
953 …|> andMap (Json.Decode.maybe (Json.Decode.field "last_checked" (Json.Decode.map dateFromSeconds Js…
954         |> andMap (Json.Decode.maybe (Json.Decode.field "pinned_version" decodeVersion))
955         |> andMap (defaultTo False <| Json.Decode.field "pinned_in_config" Json.Decode.bool)
956         |> andMap (Json.Decode.maybe (Json.Decode.field "pin_comment" Json.Decode.string))
959 decodeVersionedResource : Json.Decode.Decoder VersionedResource
961     Json.Decode.succeed VersionedResource
962         |> andMap (Json.Decode.field "id" Json.Decode.int)
963         |> andMap (Json.Decode.field "version" decodeVersion)
964         |> andMap (defaultTo [] (Json.Decode.field "metadata" decodeMetadata))
965         |> andMap (Json.Decode.field "enabled" Json.Decode.bool)
968 decodeCheck : Json.Decode.Decoder Check
970     Json.Decode.succeed Check
971         |> andMap (Json.Decode.field "id" Json.Decode.int)
972         |> andMap (Json.Decode.field "status" decodeCheckStatus)
973 …|> andMap (Json.Decode.maybe (Json.Decode.field "create_time" (Json.Decode.map dateFromSeconds Jso…
974 …|> andMap (Json.Decode.maybe (Json.Decode.field "start_time" (Json.Decode.map dateFromSeconds Json…
975 …|> andMap (Json.Decode.maybe (Json.Decode.field "end_time" (Json.Decode.map dateFromSeconds Json.D…
976         |> andMap (Json.Decode.maybe (Json.Decode.field "check_error" Json.Decode.string))
979 decodeCheckStatus : Json.Decode.Decoder CheckStatus
981     Json.Decode.string
982         |> Json.Decode.andThen
986                         Json.Decode.succeed Started
989                         Json.Decode.succeed Succeeded
992                         Json.Decode.succeed Errored
995                         Json.Decode.fail <| "unknown check status: " ++ unknown
1007 decodeVersion : Json.Decode.Decoder Version
1009     Json.Decode.dict Json.Decode.string
1026 decodeMetadata : Json.Decode.Decoder (List MetadataField)
1028     Json.Decode.list decodeMetadataField
1031 decodeMetadataField : Json.Decode.Decoder MetadataField
1033     Json.Decode.succeed MetadataField
1034         |> andMap (Json.Decode.field "name" Json.Decode.string)
1035         |> andMap (Json.Decode.field "value" Json.Decode.string)
1060 decodeTeam : Json.Decode.Decoder Team
1062     Json.Decode.succeed Team
1063         |> andMap (Json.Decode.field "id" Json.Decode.int)
1064         |> andMap (Json.Decode.field "name" Json.Decode.string)
1081 decodeUser : Json.Decode.Decoder User
1083     Json.Decode.succeed User
1084         |> andMap (Json.Decode.field "user_id" Json.Decode.string)
1085         |> andMap (Json.Decode.field "user_name" Json.Decode.string)
1086         |> andMap (Json.Decode.field "name" Json.Decode.string)
1087         |> andMap (Json.Decode.field "email" Json.Decode.string)
1088         |> andMap (Json.Decode.field "is_admin" Json.Decode.bool)
1089 …     |> andMap (Json.Decode.field "teams" (Json.Decode.dict (Json.Decode.list Json.Decode.string)))
1102 decodeCause : Json.Decode.Decoder Cause
1104     Json.Decode.succeed Cause
1105         |> andMap (Json.Decode.field "versioned_resource_id" Json.Decode.int)
1106         |> andMap (Json.Decode.field "build_id" Json.Decode.int)
1123 lazy : (() -> Json.Decode.Decoder a) -> Json.Decode.Decoder a
1125     customDecoder Json.Decode.value
1126         (\js -> Json.Decode.decodeValue (thunk ()) js)
1129 defaultTo : a -> Json.Decode.Decoder a -> Json.Decode.Decoder a
1131     Json.Decode.map (Maybe.withDefault default) << Json.Decode.maybe
1134 customDecoder : Json.Decode.Decoder b -> (b -> Result Json.Decode.Error a) -> Json.Decode.Decoder a
1136     Json.Decode.andThen
1140                     Json.Decode.succeed b
1143                     Json.Decode.fail <| Json.Decode.errorToString err