Fix compiler warning.
commit2d265917b0e9efdd065349032befb96daa021503
authorJohn MacFarlane <jgm@berkeley.edu>
dateMon 19 Nov 2018, 17:20 (8 years ago)
parenta5910c0
src/Text/Pandoc/Writers/Docx.hs+1−1
@@ -859,7 +859,7 @@ blockToOpenXML opts blk = withDirection $ blockToOpenXML' opts blk
859859
860860blockToOpenXML' :: (PandocMonad m) => WriterOptions -> Block -> WS m [Element]
861861blockToOpenXML' _ Null = return []
862−blockToOpenXML' opts (Div (ident,classes,kvs) bs) = do
862+blockToOpenXML' opts (Div (ident,_classes,kvs) bs) = do
863863 stylemod <- case lookup dynamicStyleKey kvs of
864864 Just sty -> do
865865 modify $ \s ->