From 04478cf0e2930b00d962bcb55b28bc26889fd049 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Mon, 16 Apr 2018 16:03:49 +0300
Subject: hlint Muse writer

---
 src/Text/Pandoc/Writers/Muse.hs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'src/Text/Pandoc/Writers')

diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs
index 17ca727c1..6ed6ed1ca 100644
--- a/src/Text/Pandoc/Writers/Muse.hs
+++ b/src/Text/Pandoc/Writers/Muse.hs
@@ -87,7 +87,7 @@ instance Default WriterState
                           }
 
 evalMuse :: PandocMonad m => Muse m a -> WriterEnv -> WriterState -> m a
-evalMuse document env st = evalStateT (runReaderT document env) st
+evalMuse document env = evalStateT $ runReaderT document env
 
 -- | Convert Pandoc to Muse.
 writeMuse :: PandocMonad m
@@ -276,7 +276,7 @@ blockToMuse Null = return empty
 notesToMuse :: PandocMonad m
             => Notes
             -> Muse m Doc
-notesToMuse notes = vsep <$> (zipWithM noteToMuse [1 ..] notes)
+notesToMuse notes = vsep <$> zipWithM noteToMuse [1 ..] notes
 
 -- | Return Muse representation of a note.
 noteToMuse :: PandocMonad m
@@ -307,8 +307,7 @@ startsWithMarker _ [] = False
 
 -- | Escape special characters for Muse if needed.
 containsFootnotes :: String -> Bool
-containsFootnotes st =
-  p st
+containsFootnotes = p
   where p ('[':xs) = q xs || p xs
         p (_:xs) = p xs
         p "" = False
-- 
cgit v1.2.3