diff options
| author | defanor <defanor@uberspace.net> | 2017-11-24 15:53:24 +0300 |
|---|---|---|
| committer | defanor <defanor@uberspace.net> | 2017-11-24 15:53:24 +0300 |
| commit | 33efbfed5ee94820d3009d6ec3add7a48cf579f8 (patch) | |
| tree | 2b70c748d4deb20617365432ea59b750ca0d8c6a /Pancake | |
| parent | d23c2cc82b3ebc0eb3d0f4d11ddea9e1dd96dbfc (diff) | |
Add missing documentation annotations
Diffstat (limited to 'Pancake')
| -rw-r--r-- | Pancake/Rendering.hs | 3 |
1 files changed, 3 insertions, 0 deletions
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 "" |