1module Deps.Website
2  ( domain
3  , route
4  , metadata
5  )
6  where
7
8
9import qualified Elm.Package as Pkg
10import qualified Elm.Version as V
11import qualified Http
12
13
14domain :: String
15domain =
16  "https://package.elm-lang.org"
17
18
19route :: String -> [(String,String)] -> String
20route path params =
21  Http.toUrl (domain ++ path) params
22
23
24metadata :: Pkg.Name -> V.Version -> String -> String
25metadata name version file =
26  domain ++ "/packages/" ++ Pkg.toUrl name ++ "/" ++ V.toChars version ++ "/" ++ file
27