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://s3.amazonaws.com/haddock.stackage.org/snapshots.json"
defaultLtsBuildPlans =
"https://raw.githubusercontent.com/fpco/lts-haskell/master/"
defaultNightlyBuildPlans =
"https://raw.githubusercontent.com/fpco/stackage-nightly/master/"