From 6a5661da637ac51691aac2f5a3a50b38c6ba2674 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Tue, 6 Nov 2018 00:04:15 +0300
Subject: [PATCH] hlint Muse writer
---
src/Text/Pandoc/Writers/Muse.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
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