diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs
index 46aae113b..72a674cdc 100644
--- 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