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