@@ -183,14 +183,13 @@ blocksToDefinitions' defAcc acc
183183 pair = if remainingAttr2 == ("", [], []) then (concatMap plainParaInlines blks1, [blks2]) else (concatMap plainParaInlines blks1, [[Div remainingAttr2 blks2]])
184184 in
185185 blocksToDefinitions' (pair : defAcc) acc blks
186−blocksToDefinitions' defAcc acc
186+blocksToDefinitions' ((defTerm, defItems):defs) acc
187187 (Div (ident2, classes2, kvs2) blks2 : blks)
188− | (not . null) defAcc && "Definition" `elem` classes2 =
188+ | "Definition" `elem` classes2 =
189189 let remainingAttr2 = (ident2, delete "Definition" classes2, kvs2)
190190 defItems2 = case remainingAttr2 == ("", [], []) of
191191 True -> blks2
192192 False -> [Div remainingAttr2 blks2]
193− ((defTerm, defItems):defs) = defAcc
194193 defAcc' = case null defItems of
195194 True -> (defTerm, [defItems2]) : defs
196195 False -> (defTerm, init defItems ++ [last defItems ++ defItems2]) : defs