From 468852410e3881910d803192f13ed13f19a7af41 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Mon, 25 Nov 2024 17:08:28 +0100
Subject: List installed packages from a repository

---
 lib/SlackBuilder/Package.hs | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

(limited to 'lib/SlackBuilder/Package.hs')

diff --git a/lib/SlackBuilder/Package.hs b/lib/SlackBuilder/Package.hs
index 5179c4c..c87bf4b 100644
--- a/lib/SlackBuilder/Package.hs
+++ b/lib/SlackBuilder/Package.hs
@@ -5,7 +5,8 @@
 -- | Contains data describing packages, methods to update them and to request
 -- information about them.
 module SlackBuilder.Package
-    ( Download(..)
+    ( DataBaseEntry(..)
+    , Download(..)
     , DownloadTemplate(..)
     , PackageDescription(..)
     , PackageUpdateData(..)
@@ -66,3 +67,15 @@ data Updater = Updater
     , is64 :: Bool
     , getVersion :: Text -> Text -> SlackBuilderT Download
     }
+
+data DataBaseEntry = DataBaseEntry
+    { name :: Text
+    , version :: Text
+    , arch :: Text
+    , build :: Text
+    } deriving Eq
+
+instance Show DataBaseEntry
+  where
+    show DataBaseEntry{..} = Text.unpack
+        $ Text.intercalate "-" [name, version, arch, build]
-- 
cgit v1.2.3