diff options
Diffstat (limited to 'src/MdBlocks/CLI.hs')
| -rw-r--r-- | src/MdBlocks/CLI.hs | 6 |
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) = |