@@ -40,7 +40,7 @@ getSlideLevel = go 6
40 | otherwise = go least (x:xs)
40 | otherwise = go least (x:xs)
41 go least (_ : xs) = go least xs
41 go least (_ : xs) = go least xs
42 go least [] = least
42 go least [] = least
43− nonHOrHR (Header _ _ _) = False
43+ nonHOrHR (Header{}) = False
44 nonHOrHR (HorizontalRule) = False
44 nonHOrHR (HorizontalRule) = False
45 nonHOrHR _ = True
45 nonHOrHR _ = True