@@ -331,7 +331,7 @@ blockToMuseWithNotes :: PandocMonad m
331blockToMuseWithNotes blk = do
331blockToMuseWithNotes blk = do
332 topLevel <- asks envTopLevel
332 topLevel <- asks envTopLevel
333 opts <- asks envOptions
333 opts <- asks envOptions
334− let hdrToMuse hdr@(Header{}) = do
334+ let hdrToMuse hdr@Header{} = do
335 b <- blockToMuse hdr
335 b <- blockToMuse hdr
336 if topLevel && writerReferenceLocation opts == EndOfSection
336 if topLevel && writerReferenceLocation opts == EndOfSection