diff options
| author | Eugen Wissner <belka@caraus.de> | 2023-12-12 18:51:44 +0100 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2023-12-12 18:51:44 +0100 |
| commit | eb68629653f81f19df20b0d1c6bbab7d2f5db82d (patch) | |
| tree | bbe5487e0126d2391402f6edb7b7c078eba9d219 /lib/SlackBuilder | |
| parent | 6a063b2cc450b6ac90b38bc5c9ea348430794aa7 (diff) | |
| download | slackbuilder-eb68629653f81f19df20b0d1c6bbab7d2f5db82d.tar.gz | |
Support x86-64 only downloads
Diffstat (limited to 'lib/SlackBuilder')
| -rw-r--r-- | lib/SlackBuilder/Config.hs | 1 | ||||
| -rw-r--r-- | lib/SlackBuilder/Info.hs | 7 | ||||
| -rw-r--r-- | lib/SlackBuilder/Trans.hs | 1 |
3 files changed, 8 insertions, 1 deletions
diff --git a/lib/SlackBuilder/Config.hs b/lib/SlackBuilder/Config.hs index d94000c..5a0b791 100644 --- a/lib/SlackBuilder/Config.hs +++ b/lib/SlackBuilder/Config.hs @@ -1,3 +1,4 @@ +-- | Configuration file. module SlackBuilder.Config ( Settings(..) , MaintainerSettings(..) diff --git a/lib/SlackBuilder/Info.hs b/lib/SlackBuilder/Info.hs index 861193b..9362820 100644 --- a/lib/SlackBuilder/Info.hs +++ b/lib/SlackBuilder/Info.hs @@ -1,3 +1,4 @@ +-- | Info file parsing and printing. module SlackBuilder.Info ( PackageInfo(..) , generate @@ -113,7 +114,7 @@ generate pkg = Lazy.Text.toStrict $ Text.Builder.toLazyText builder builder = "PRGNAM=\"" <> Text.Builder.fromString (pkgname pkg) <> "\"\n" <> "VERSION=\"" <> Text.Builder.fromText (version pkg) <> "\"\n" <> "HOMEPAGE=\"" <> Text.Builder.fromText (homepage pkg) <> "\"\n" - <> generateMultiEntry "DOWNLOAD" (render <$> downloads pkg) + <> downloadEntry <> generateMultiEntry "MD5SUM" (digestToText <$> checksums pkg) <> generateMultiEntry "DOWNLOAD_x86_64" (render <$> downloadX64 pkg) <> generateMultiEntry "MD5SUM_x86_64" (digestToText <$> checksumX64 pkg) @@ -122,6 +123,10 @@ generate pkg = Lazy.Text.toStrict $ Text.Builder.toLazyText builder <> "EMAIL=\"" <> Text.Builder.fromText (email pkg) <> "\"\n" fromByteStringWords = Text.Builder.fromText . Text.unwords . fmap Text.decodeUtf8 + downloadEntry + | null $ downloads pkg + , not $ null $ downloadX64 pkg = "DOWNLOAD=\"UNSUPPORTED\"\n" + | otherwise = generateMultiEntry "DOWNLOAD" $ render <$> downloads pkg generateMultiEntry :: Text -> [Text] -> Text.Builder generateMultiEntry name entries = Text.Builder.fromText name diff --git a/lib/SlackBuilder/Trans.hs b/lib/SlackBuilder/Trans.hs index ee9b539..2876691 100644 --- a/lib/SlackBuilder/Trans.hs +++ b/lib/SlackBuilder/Trans.hs @@ -1,3 +1,4 @@ +-- | Transformers and exceptions. module SlackBuilder.Trans ( SlackBuilderException(..) , SlackBuilderT(..) |