blob: c3dc5a424637283ae17a8b953ad65f1fd449171f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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))
|
