From 53d7b8175ff897391fda84eb3dc71af31d364f7e Mon Sep 17 00:00:00 2001 From: defanor Date: Sun, 26 Nov 2017 08:52:32 +0300 Subject: 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. --- Pancake/Printing.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'Pancake/Printing.hs') 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] -- cgit v1.2.3