@@ -282,10 +282,10 @@ noteToMuse :: PandocMonad m
282282 => Int
283283 -> [Block]
284284 -> Muse m Doc
285−noteToMuse num note = do
286− contents <- blockListToMuse note
287− let marker = "[" ++ show num ++ "] "
288− return $ hang (length marker) (text marker) contents
285+noteToMuse num note =
286+ hang (length marker) (text marker) <$> blockListToMuse note
287+ where
288+ marker = "[" ++ show num ++ "] "
289289
290290-- | Escape special characters for Muse.
291291escapeString :: String -> String