diff options
Diffstat (limited to 'Pancake/Printing.hs')
| -rw-r--r-- | Pancake/Printing.hs | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/Pancake/Printing.hs b/Pancake/Printing.hs index 5ef3a81..6778ac8 100644 --- a/Pancake/Printing.hs +++ b/Pancake/Printing.hs @@ -110,10 +110,12 @@ showSexps uri ro = , showDenotation d , showSexp s] showDenotation :: Denotation -> String - showDenotation (Link u) = list ["link", ".", encodeSexpStr $ show u] - showDenotation (Image u) = list ["image", ".", encodeSexpStr $ show u] - showDenotation (Math m) = list ["math", ".", encodeSexpStr m] - showDenotation (Heading l) = list ["heading", ".", show l] + showDenotation (Link u) = list [ "link", encodeSexpStr $ show u + , encodeSexpStr $ show $ relativeTo u uri] + showDenotation (Image u) = list [ "image", encodeSexpStr $ show u + , encodeSexpStr $ show $ relativeTo u uri] + showDenotation (Math m) = list ["math", encodeSexpStr m] + showDenotation (Heading l) = list ["heading", show l] -- | Merge elements with the same styling. mergeStyled :: [Styled] -> [Styled] |