From d5633e2395368410e1dfa22e5a046e655671a981 Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Wed, 30 Sep 2026 03:21:31 +0200
Subject: init

---
 src/MdBlocks/Address.hs | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 src/MdBlocks/Address.hs

(limited to 'src/MdBlocks/Address.hs')

diff --git a/src/MdBlocks/Address.hs b/src/MdBlocks/Address.hs
new file mode 100644
index 0000000..c3dc5a4
--- /dev/null
+++ b/src/MdBlocks/Address.hs
@@ -0,0 +1,19 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module MdBlocks.Address where
+
+import Data.Text (Text)
+import qualified Data.Text as T
+
+import MdBlocks.Types
+
+addressOf :: Block -> Text
+addressOf b =
+  case mdId (blockMeta b) of
+    Just x ->
+      T.pack (blockFile b) <> "#" <> x
+
+    Nothing ->
+      T.pack (blockFile b)
+        <> "#"
+        <> T.pack (show (blockNumber b))
-- 
cgit v1.3.1