summaryrefslogtreecommitdiffstats
path: root/src/MdBlocks/CLI.hs
diff options
context:
space:
mode:
authortv <tv@krebsco.de>2026-09-30 05:19:43 +0200
committertv <tv@krebsco.de>2026-09-30 05:19:43 +0200
commitef499c0239021ac537222cfad5bdc17c3ea03d86 (patch)
tree9d0242f2a29d5d7e2bcbd50ffb07d5b711d550ac /src/MdBlocks/CLI.hs
parentf460d30844358ef65477457a106681dc420e6452 (diff)
detect duplicated idsHEADv1.0.0master
Diffstat (limited to 'src/MdBlocks/CLI.hs')
-rw-r--r--src/MdBlocks/CLI.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/MdBlocks/CLI.hs b/src/MdBlocks/CLI.hs
index 5c2bc29..3849220 100644
--- a/src/MdBlocks/CLI.hs
+++ b/src/MdBlocks/CLI.hs
@@ -81,10 +81,10 @@ run (Extract rawAddress) =
blocks <- loadBlocks (addressFile address)
case resolveBlock address blocks of
- Nothing ->
- die ("mdblocks: block not found: " ++ rawAddress)
+ Left err ->
+ die ("mdblocks: " ++ formatResolveError address err)
- Just block ->
+ Right block ->
T.putStr (blockContent block)
run (ShowMeta addr) =