aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Text/Pandoc/ImageSize.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/ImageSize.hs b/src/Text/Pandoc/ImageSize.hs
index a6d076fa9..9e6b457c0 100644
--- a/src/Text/Pandoc/ImageSize.hs
+++ b/src/Text/Pandoc/ImageSize.hs
@@ -217,7 +217,7 @@ exifHeader hdr = do
numentries <- getWord16
let ifdEntry = do
tag <- getWord16 >>= \t ->
- maybe (fail $ "Unknown tag type " ++ show t) return
+ maybe (return UnknownTagType) return
(M.lookup t tagTypeTable)
dataFormat <- getWord16
numComponents <- getWord32
@@ -337,6 +337,7 @@ data TagType = ImageDescription
| SensingMethod
| FileSource
| SceneType
+ | UnknownTagType
deriving (Show, Eq, Ord)
tagTypeTable :: M.Map Word16 TagType