ConTeXt writer: generate section headings on all levels

jgm · Jan 24, 2018 · c68345f · c68345f
1 parent 0fbe470
commit c68345f
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/src/Text/Pandoc/Writers/ConTeXt.hs b/src/Text/Pandoc/Writers/ConTeXt.hs
@@ -526,11 +526,11 @@ sectionLevelToText opts (_,classes,_) hdrLevel = do
                               then (text "subject", text "title")
                               else (text "section", text "chapter")
   return $ case level' of
-             -1                   -> text "part"
-             0                    -> chapter
-             n | n >= 1 && n <= 5 -> text (concat (replicate (n - 1) "sub"))
-                                     <> section
-             _                    -> empty
+             -1         -> text "part"
+             0          -> chapter
+             n | n >= 1 -> text (concat (replicate (n - 1) "sub"))
+                           <> section
+             _          -> empty -- cannot happen
 
 fromBCP47 :: PandocMonad m => Maybe String -> WM m (Maybe String)
 fromBCP47 mbs = fromBCP47' <$> toLang mbs