diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-11-19 17:20:49 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-11-19 17:20:49 -0800 |
| commit | 2d265917b0e9efdd065349032befb96daa021503 (patch) | |
| tree | 4741924067472d99d310942151a02a5118194673 /src/Text/Pandoc/Writers/Docx.hs | |
| parent | a5910c0a31351e1145d82447552cbb37d5f37d86 (diff) | |
| download | pandoc-2d265917b0e9efdd065349032befb96daa021503.tar.gz | |
Fix compiler warning.
Diffstat (limited to 'src/Text/Pandoc/Writers/Docx.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/Docx.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs index c95682331..a441aeec7 100644 --- a/src/Text/Pandoc/Writers/Docx.hs +++ b/src/Text/Pandoc/Writers/Docx.hs @@ -859,7 +859,7 @@ blockToOpenXML opts blk = withDirection $ blockToOpenXML' opts blk blockToOpenXML' :: (PandocMonad m) => WriterOptions -> Block -> WS m [Element] blockToOpenXML' _ Null = return [] -blockToOpenXML' opts (Div (ident,classes,kvs) bs) = do +blockToOpenXML' opts (Div (ident,_classes,kvs) bs) = do stylemod <- case lookup dynamicStyleKey kvs of Just sty -> do modify $ \s -> |