diff options
author | defanor <defanor@uberspace.net> | 2017-11-08 13:35:19 +0300 |
---|---|---|
committer | defanor <defanor@uberspace.net> | 2017-11-08 13:35:19 +0300 |
commit | 0c8ab2ac62c220073a67843612df12f242621062 (patch) | |
tree | 3b65512e60ac64e1e0231d53382ad55cdc20502c /Pancake/Rendering.hs | |
parent | 65598e789be5db363e16efcbd5c5337b68c739c1 (diff) |
Do not underline headings
Diffstat (limited to 'Pancake/Rendering.hs')
-rw-r--r-- | Pancake/Rendering.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Pancake/Rendering.hs b/Pancake/Rendering.hs index fa8bdfc..c8922cf 100644 --- a/Pancake/Rendering.hs +++ b/Pancake/Rendering.hs @@ -340,9 +340,8 @@ renderBlock (P.DefinitionList dl) = in mapM_ renderDefinition dl renderBlock (P.Header level attr i) = do storeAttr attr - indented =<< map (map (Denote (Heading level) . Fg Green) - . ([fromString (replicate level '#'), " "] ++) - . map (Bold . Underline)) + indented =<< map (map (Denote (Heading level) . Bold . Fg Green) + . ([fromString (replicate level '#'), " "] ++)) <$> readInlines i renderBlock P.HorizontalRule = do st <- get |