diff options
| author | Christian Despres <50160106+despresc@users.noreply.github.com> | 2020-09-13 10:48:14 -0400 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-09-13 07:48:14 -0700 |
| commit | cae155b095e5182cc1b342b21f7430e40afe7ba8 (patch) | |
| tree | 82b6342b0a8dc6f98ce73188bb89ae5ad0267060 /src/Text/Pandoc/Shared.hs | |
| parent | 2109ded7101dba0ac48c9b60cdf454ad39a7e272 (diff) | |
| download | pandoc-cae155b095e5182cc1b342b21f7430e40afe7ba8.tar.gz | |
Fix hlint suggestions, update hlint.yaml (#6680)
* Fix hlint suggestions, update hlint.yaml
Most suggestions were redundant brackets. Some required
LambdaCase.
The .hlint.yaml file had a small typo, and didn't ignore camelCase
suggestions in certain modules.
Diffstat (limited to 'src/Text/Pandoc/Shared.hs')
| -rw-r--r-- | src/Text/Pandoc/Shared.hs | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs index 9a293d2ab..4853621c8 100644 --- a/src/Text/Pandoc/Shared.hs +++ b/src/Text/Pandoc/Shared.hs @@ -580,7 +580,7 @@ makeSections numbering mbBaseLevel bs = let kvs' = -- don't touch number if already present case lookup "number" kvs of Nothing | numbering - , not ("unnumbered" `elem` classes) -> + , "unnumbered" `notElem` classes -> ("number", T.intercalate "." (map tshow newnum)) : kvs _ -> kvs let divattr = (ident, "section":classes, kvs') @@ -626,11 +626,9 @@ headerLtEq _ _ = False uniqueIdent :: Extensions -> [Inline] -> Set.Set T.Text -> T.Text uniqueIdent exts title' usedIdents = if baseIdent `Set.member` usedIdents - then case find (\x -> numIdent x `Set.notMember` usedIdents) - ([1..60000] :: [Int]) of - Just x -> numIdent x - Nothing -> baseIdent - -- if we have more than 60,000, allow repeats + then maybe baseIdent numIdent + $ find (\x -> numIdent x `Set.notMember` usedIdents) ([1..60000] :: [Int]) + -- if we have more than 60,000, allow repeats else baseIdent where baseIdent = case inlineListToIdentifier exts title' of |