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

     1  module Concourse.Cli exposing (Cli(..), clis, downloadUrl, id, label)
     2  
     3  import Api.Endpoints as Endpoints
     4  import Url.Builder
     5  
     6  
     7  clis : List Cli
     8  clis =
     9      [ OSX, Windows, Linux ]
    10  
    11  
    12  type Cli
    13      = OSX
    14      | Windows
    15      | Linux
    16  
    17  
    18  downloadUrl : Cli -> String
    19  downloadUrl cli =
    20      let
    21          platformName =
    22              case cli of
    23                  OSX ->
    24                      "darwin"
    25  
    26                  Windows ->
    27                      "windows"
    28  
    29                  Linux ->
    30                      "linux"
    31      in
    32      Endpoints.Cli
    33          |> Endpoints.toString
    34              [ Url.Builder.string "arch" "amd64"
    35              , Url.Builder.string "platform" platformName
    36              ]
    37  
    38  
    39  label : Cli -> String
    40  label cli =
    41      let
    42          platformName =
    43              case cli of
    44                  OSX ->
    45                      "OS X"
    46  
    47                  Windows ->
    48                      "Windows"
    49  
    50                  Linux ->
    51                      "Linux"
    52      in
    53      "Download " ++ platformName ++ " CLI"
    54  
    55  
    56  id : Cli -> String
    57  id cli =
    58      case cli of
    59          OSX ->
    60              "osx"
    61  
    62          Windows ->
    63              "windows"
    64  
    65          Linux ->
    66              "linux"