From 442d732696ad431b84f6e5c72b6ee785be4fd968 Mon Sep 17 00:00:00 2001
From: adelon <22380201+adelon@users.noreply.github.com>
Date: Sat, 10 Feb 2024 02:22:14 +0100
Subject: Initial commit

---
 source/Version.hs | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 source/Version.hs

(limited to 'source/Version.hs')

diff --git a/source/Version.hs b/source/Version.hs
new file mode 100644
index 0000000..2293e3c
--- /dev/null
+++ b/source/Version.hs
@@ -0,0 +1,22 @@
+{-# LANGUAGE NoImplicitPrelude #-}
+
+
+module Version (info, infoBuilder) where
+
+import Data.Functor
+import Data.Semigroup
+import Data.Text (Text)
+import Data.Version
+import Paths_zf qualified as ZF
+import Text.Builder
+
+
+-- | Informational text about the version number (extracted from the cabal file).
+info :: Text
+info = run infoBuilder
+
+infoBuilder :: Builder
+infoBuilder = text "Version " <> versionToBuilder ZF.version
+
+versionToBuilder :: Version -> Builder
+versionToBuilder ver = intercalate (char '.') (decimal <$> versionBranch ver)
-- 
cgit v1.2.3