From eb68629653f81f19df20b0d1c6bbab7d2f5db82d Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Tue, 12 Dec 2023 18:51:44 +0100
Subject: Support x86-64 only downloads

---
 lib/SlackBuilder/Config.hs | 1 +
 lib/SlackBuilder/Info.hs   | 7 ++++++-
 lib/SlackBuilder/Trans.hs  | 1 +
 3 files changed, 8 insertions(+), 1 deletion(-)

(limited to 'lib')

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(..)
-- 
cgit v1.2.3