76 lines
2.3 KiB
Haskell
76 lines
2.3 KiB
Haskell
{- This Source Code Form is subject to the terms of the Mozilla Public License,
|
|
v. 2.0. If a copy of the MPL was not distributed with this file, You can
|
|
obtain one at https://mozilla.org/MPL/2.0/. -}
|
|
|
|
-- | Contains data describing packages and how they are should be updated,
|
|
module SlackBuilder.Package
|
|
( DownloadPlaceholder(..)
|
|
, Download(..)
|
|
, DownloadTemplate(..)
|
|
, PackageDescription(..)
|
|
, PackageUpdateData(..)
|
|
, Updater(..)
|
|
, renderDownloadWithVersion
|
|
) where
|
|
|
|
import Data.Text (Text)
|
|
import qualified Data.Text as Text
|
|
import Text.URI (URI(..))
|
|
import qualified Text.URI as URI
|
|
import Crypto.Hash (Digest, MD5)
|
|
import SlackBuilder.Trans
|
|
import Control.Monad.Catch (MonadThrow)
|
|
import Data.Map (Map)
|
|
|
|
-- | Contains information how a package can be updated.
|
|
data PackageDescription = PackageDescription
|
|
{ latest :: Updater
|
|
, downloaders :: Map Text Updater
|
|
, name :: Text
|
|
}
|
|
|
|
data PackageUpdateData = PackageUpdateData
|
|
{ description :: PackageDescription
|
|
, category :: Text
|
|
, version :: Text
|
|
}
|
|
|
|
-- | Download URI with the MD5 checksum of the target.
|
|
data Download = Download
|
|
{ download :: URI
|
|
, md5sum :: Digest MD5
|
|
} deriving (Eq, Show)
|
|
|
|
-- | Appears in the download URI template and specifies which part of the URI
|
|
-- should be replaced with the package version.
|
|
data DownloadPlaceholder
|
|
= StaticPlaceholder Text
|
|
| VersionPlaceholder
|
|
deriving Eq
|
|
|
|
instance Show DownloadPlaceholder
|
|
where
|
|
show (StaticPlaceholder staticPlaceholder) = Text.unpack staticPlaceholder
|
|
show VersionPlaceholder = "{version}"
|
|
|
|
-- | List of URI components, including version placeholders.
|
|
newtype DownloadTemplate = DownloadTemplate
|
|
{ unDownloadTemplate :: Text
|
|
} deriving Eq
|
|
|
|
instance Show DownloadTemplate
|
|
where
|
|
show = Text.unpack . unDownloadTemplate
|
|
|
|
-- | Replaces placeholders in the URL template with the given version.
|
|
renderDownloadWithVersion :: MonadThrow m => DownloadTemplate -> Text -> m URI
|
|
renderDownloadWithVersion (DownloadTemplate template) version =
|
|
URI.mkURI $ Text.replace "{version}" version template
|
|
|
|
-- | Function used to get the latest version of a source.
|
|
data Updater = Updater
|
|
{ detectLatest :: SlackBuilderT (Maybe Text)
|
|
, is64 :: Bool
|
|
, getVersion :: Text -> Text -> SlackBuilderT Download
|
|
}
|