@@ -501,8 +501,8 @@ blockToLaTeX (Div (identifier,"slide":dclasses,dkvs)
501501 hasCodeBlock _ = []
502502 let hasCode (Code _ _) = [True]
503503 hasCode _ = []
504− let classes = dclasses ++ hclasses
505− let kvs = dkvs ++ hkvs
504+ let classes = ordNub $ dclasses ++ hclasses
505+ let kvs = ordNub $ dkvs ++ hkvs
506506 let fragile = "fragile" `elem` classes ||
507507 not (null $ query hasCodeBlock bs ++ query hasCode bs)
508508 let frameoptions = ["allowdisplaybreaks", "allowframebreaks", "fragile",