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