diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2014-07-30 10:55:29 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2014-07-30 10:55:29 -0700 |
| commit | b12d2ea20a8b914ed2d6ee111eee5a25ad989597 (patch) | |
| tree | ccf89e4668affc8ee0bf16089f6eadc2c3a427ad /src/Text/Pandoc/Readers/Docx | |
| parent | 02c79ea4f6c050e9e610825e8b462382beae2b5a (diff) | |
| parent | f733b50150c3e7bf445d0d7c71e1f34e62ddf61a (diff) | |
| download | pandoc-b12d2ea20a8b914ed2d6ee111eee5a25ad989597.tar.gz | |
Merge pull request #1468 from jkr/mediabag
Mediabag
Diffstat (limited to 'src/Text/Pandoc/Readers/Docx')
| -rw-r--r-- | src/Text/Pandoc/Readers/Docx/Parse.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/Text/Pandoc/Readers/Docx/Parse.hs b/src/Text/Pandoc/Readers/Docx/Parse.hs index 8541a1a3a..71938afe0 100644 --- a/src/Text/Pandoc/Readers/Docx/Parse.hs +++ b/src/Text/Pandoc/Readers/Docx/Parse.hs @@ -779,11 +779,11 @@ expandDrawingId :: String -> D ParPart expandDrawingId s = do target <- asks (lookupRelationship s . envRelationships) case target of - Just t -> do let filepath = combine "word" t - bytes <- asks (lookup filepath . envMedia) - case bytes of - Just bs -> return $ Drawing filepath bs - Nothing -> throwError DocxError + Just filepath -> do + bytes <- asks (lookup (combine "word" filepath) . envMedia) + case bytes of + Just bs -> return $ Drawing filepath bs + Nothing -> throwError DocxError Nothing -> throwError DocxError elemToParPart :: NameSpaces -> Element -> D ParPart |