diff options
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 |