hlint Muse writer

2018-11-06 00:04:15 +03:00 · 2018-11-06 00:04:15 +03:00 · 6a5661da63
commit 6a5661da63
parent 928ec21732
1 changed files with 1 additions and 1 deletions
--- a/src/Text/Pandoc/Writers/Muse.hs
+++ b/src/Text/Pandoc/Writers/Muse.hs
@ -331,7 +331,7 @@ blockToMuseWithNotes :: PandocMonad m
 blockToMuseWithNotes blk = do
  topLevel <- asks envTopLevel
  opts <- asks envOptions
-  let hdrToMuse hdr@(Header{}) = do
+  let hdrToMuse hdr@Header{} = do
        b <- blockToMuse hdr
        if topLevel && writerReferenceLocation opts == EndOfSection
          then do