diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2019-09-28 13:42:37 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2019-09-28 13:42:37 -0700 |
| commit | 63a1e05dd1eb041aee55a5c5c4d0d84a035348b2 (patch) | |
| tree | a4e55dc0b970f117f38cb7c90328dcb8816af3de /src/Text/Pandoc/Writers/Powerpoint/Output.hs | |
| parent | df74eea69a73ecf446b615189537be831d50952e (diff) | |
| download | pandoc-63a1e05dd1eb041aee55a5c5c4d0d84a035348b2.tar.gz | |
Replace some more fails with throwErrors.
Diffstat (limited to 'src/Text/Pandoc/Writers/Powerpoint/Output.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/Powerpoint/Output.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Powerpoint/Output.hs b/src/Text/Pandoc/Writers/Powerpoint/Output.hs index 4a8dc1528..6b43fa34a 100644 --- a/src/Text/Pandoc/Writers/Powerpoint/Output.hs +++ b/src/Text/Pandoc/Writers/Powerpoint/Output.hs @@ -173,7 +173,8 @@ copyFileToArchive arch fp = do refArchive <- asks envRefArchive distArchive <- asks envDistArchive case findEntryByPath fp refArchive `mplus` findEntryByPath fp distArchive of - Nothing -> Prelude.fail $ fp ++ " missing in reference file" + Nothing -> throwError $ PandocSomeError + $ fp ++ " missing in reference file" Just e -> return $ addEntryToArchive e arch alwaysInheritedPatterns :: [Pattern] |