diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2017-11-01 14:20:03 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2017-11-01 14:40:10 +0300 |
| commit | 00b64f337da635e3cb2fb4bd473d606f48653eb5 (patch) | |
| tree | 115cf6552795e9b113a8d4a6f4fb242a1e1b92da /src/Text/Pandoc/Shared.hs | |
| parent | 3cee9c89768de064910deedbce3d8d28c1ffef84 (diff) | |
| download | pandoc-00b64f337da635e3cb2fb4bd473d606f48653eb5.tar.gz | |
hlint
Diffstat (limited to 'src/Text/Pandoc/Shared.hs')
| -rw-r--r-- | src/Text/Pandoc/Shared.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs index 60c8e1a0c..e0ea8b5e7 100644 --- a/src/Text/Pandoc/Shared.hs +++ b/src/Text/Pandoc/Shared.hs @@ -519,8 +519,8 @@ uniqueIdent title' usedIdents -- | True if block is a Header block. isHeaderBlock :: Block -> Bool -isHeaderBlock (Header{}) = True -isHeaderBlock _ = False +isHeaderBlock Header{} = True +isHeaderBlock _ = False -- | Shift header levels up or down. headerShift :: Int -> Pandoc -> Pandoc @@ -584,7 +584,7 @@ renderTags' = renderTagsOptions renderOptions{ optMinimize = matchTags ["hr", "br", "img", "meta", "link"] , optRawTag = matchTags ["script", "style"] } - where matchTags = \tags -> flip elem tags . map toLower + where matchTags tags = flip elem tags . map toLower -- -- File handling |