module Stack.Config.Urls (urlsFromMonoid) where
import Stack.Types.Urls
import Data.Monoid.Extra
urlsFromMonoid :: UrlsMonoid -> Urls
urlsFromMonoid monoid =
Urls
(fromFirst defaultLatestSnapshot $ urlsMonoidLatestSnapshot monoid)
(fromFirst defaultLtsBuildPlans $ urlsMonoidLtsBuildPlans monoid)
(fromFirst defaultNightlyBuildPlans $ urlsMonoidNightlyBuildPlans monoid)
where
defaultLatestSnapshot =
"https://www.stackage.org/download/snapshots.json"
defaultLtsBuildPlans =
"https://raw.githubusercontent.com/fpco/lts-haskell/master/"
defaultNightlyBuildPlans =
"https://raw.githubusercontent.com/fpco/stackage-nightly/master/"