diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-04-03 15:39:14 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-04-03 15:47:23 +0300 |
| commit | 8837af879add64e4c0e04505e0a469620d6404c1 (patch) | |
| tree | 4591eac4ef2180d5a8267ca64c4c4a9a49fb3dc2 | |
| parent | 362045afa0098a33b22954b5e18e6e9c23ac61e0 (diff) | |
| download | pandoc-8837af879add64e4c0e04505e0a469620d6404c1.tar.gz | |
Muse writer: rewrite noteToMuse without do
| -rw-r--r-- | src/Text/Pandoc/Writers/Muse.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs index 90deee11b..aae6b3d9d 100644 --- a/src/Text/Pandoc/Writers/Muse.hs +++ b/src/Text/Pandoc/Writers/Muse.hs @@ -282,10 +282,10 @@ noteToMuse :: PandocMonad m => Int -> [Block] -> Muse m Doc -noteToMuse num note = do - contents <- blockListToMuse note - let marker = "[" ++ show num ++ "] " - return $ hang (length marker) (text marker) contents +noteToMuse num note = + hang (length marker) (text marker) <$> blockListToMuse note + where + marker = "[" ++ show num ++ "] " -- | Escape special characters for Muse. escapeString :: String -> String |