Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Avoid a non-exhaustive pattern match.

Browse source
This commit is contained in:
John MacFarlane 2018-08-10 14:59:59 -07:00
parent 9752dcd61a
commit ec89628984
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Text/Pandoc/Readers/Docx/Lists.hs
View file

@ -183,14 +183,13 @@ blocksToDefinitions' defAcc acc
pair = if remainingAttr2 == ("", [], []) then (concatMap plainParaInlines blks1, [blks2]) else (concatMap plainParaInlines blks1, [[Div remainingAttr2 blks2]]) pair = if remainingAttr2 == ("", [], []) then (concatMap plainParaInlines blks1, [blks2]) else (concatMap plainParaInlines blks1, [[Div remainingAttr2 blks2]])
in in
blocksToDefinitions' (pair : defAcc) acc blks blocksToDefinitions' (pair : defAcc) acc blks
blocksToDefinitions' defAcc acc blocksToDefinitions' ((defTerm, defItems):defs) acc
(Div (ident2, classes2, kvs2) blks2 : blks) (Div (ident2, classes2, kvs2) blks2 : blks)
| (not . null) defAcc && "Definition" `elem` classes2 = | "Definition" `elem` classes2 =
let remainingAttr2 = (ident2, delete "Definition" classes2, kvs2) let remainingAttr2 = (ident2, delete "Definition" classes2, kvs2)
defItems2 = case remainingAttr2 == ("", [], []) of defItems2 = case remainingAttr2 == ("", [], []) of
True -> blks2 True -> blks2
False -> [Div remainingAttr2 blks2] False -> [Div remainingAttr2 blks2]
((defTerm, defItems):defs) = defAcc
defAcc' = case null defItems of defAcc' = case null defItems of
True -> (defTerm, [defItems2]) : defs True -> (defTerm, [defItems2]) : defs
False -> (defTerm, init defItems ++ [last defItems ++ defItems2]) : defs False -> (defTerm, init defItems ++ [last defItems ++ defItems2]) : defs