From 33efbfed5ee94820d3009d6ec3add7a48cf579f8 Mon Sep 17 00:00:00 2001
From: defanor <defanor@uberspace.net>
Date: Fri, 24 Nov 2017 15:53:24 +0300
Subject: Add missing documentation annotations

---
 Pancake/Rendering.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'Pancake')

diff --git a/Pancake/Rendering.hs b/Pancake/Rendering.hs
index 822bfa4..8d0cd0c 100644
--- a/Pancake/Rendering.hs
+++ b/Pancake/Rendering.hs
@@ -39,6 +39,8 @@ data Listing = Bulleted
              | Ordered Int
              deriving (Show, Eq)
 
+-- | Denotations: information that can be ignored, but can also be
+-- used to improve the UI.
 data Denotation = Link URI
                 | Math String
                 | Heading Int
@@ -80,6 +82,7 @@ data RendererOutput = RLink URI
                     | RIdentifier String Int
                     deriving (Show, Eq)
 
+-- | Show a reference.
 showRef :: String -> Int -> String
 showRef digits n = showIntAtBase (length digits) (digits !!) n ""
 
-- 
cgit v1.2.3