diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-03-02 19:51:54 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-03-02 19:51:54 +0300 |
| commit | 991b57733c508634d6093e2aeb2ffb3feec13c42 (patch) | |
| tree | 7f332239373ec6fa096cb838be473cb790828399 /src/Text/Pandoc/Writers | |
| parent | a01573692af91f54b5fe6670e4a07fb6a3935181 (diff) | |
| download | pandoc-991b57733c508634d6093e2aeb2ffb3feec13c42.tar.gz | |
hlint Muse reader and writer
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/Muse.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs index bf1f267fd..ad67e489d 100644 --- a/src/Text/Pandoc/Writers/Muse.hs +++ b/src/Text/Pandoc/Writers/Muse.hs @@ -157,7 +157,7 @@ blockToMuse (Para inlines) = do return $ contents <> blankline blockToMuse (LineBlock lns) = do lns' <- mapM inlineListToMuse lns - return $ nowrap $ vcat (map ((text "> ") <>) lns') <> blankline + return $ nowrap $ vcat (map (text "> " <>) lns') <> blankline blockToMuse (CodeBlock (_,_,_) str) = return $ "<example>" $$ text str $$ "</example>" $$ blankline blockToMuse (RawBlock (Format format) str) = |