init

1 files changed, 19 insertions, 0 deletions

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))