diff options
| author | defanor <defanor@uberspace.net> | 2017-11-26 08:52:32 +0300 |
|---|---|---|
| committer | defanor <defanor@uberspace.net> | 2017-11-26 08:52:32 +0300 |
| commit | 53d7b8175ff897391fda84eb3dc71af31d364f7e (patch) | |
| tree | c9c046631f79e33ee0a5cc1aee899193f372ece6 /Pancake/Printing.hs | |
| parent | 9285ad522bdaf72bbcefdca3807ece0194eae84b (diff) | |
Distinguish image denotations from those for links
Some kind of image support can be introduced in the future, and it's
not quite correct to present images as links.
Diffstat (limited to 'Pancake/Printing.hs')
| -rw-r--r-- | Pancake/Printing.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Pancake/Printing.hs b/Pancake/Printing.hs index c16e820..bace403 100644 --- a/Pancake/Printing.hs +++ b/Pancake/Printing.hs @@ -89,6 +89,7 @@ showSexps uri ro = , showSexp s] showDenotation :: Denotation -> String showDenotation (Link u) = list ["link", ".", encodeStr $ show u] + showDenotation (Image u) = list ["image", ".", encodeStr $ show u] showDenotation (Math m) = list ["math", ".", encodeStr m] showDenotation (Heading l) = list ["heading", ".", show l] |