@@ -28,7 +28,6 @@ import Data.Char (isSpace, isLetter)
2828import Data.List (intercalate, isPrefixOf, isSuffixOf)
2929import Data.String (fromString)
3030import qualified Data.Map as M
31−import Data.Either (fromRight)
3231import Data.Maybe (fromMaybe, isNothing, mapMaybe, maybeToList)
3332import qualified Data.Set as Set
3433import qualified Data.Text as T
@@ -1403,7 +1402,7 @@ inlineToOpenXML' opts (Image attr@(imgident, _, _) alt (src, title)) = do
14031402 generateImgElt (ident, _, _, img) =
14041403 let
14051404 (xpt,ypt) = desiredSizeInPoints opts attr
1406− (fromRight def (imageSize opts img))
1405+ (either (const def) id (imageSize opts img))
14071406 -- 12700 emu = 1 pt
14081407 (xemu,yemu) = fitToPage (xpt * 12700, ypt * 12700)
14091408 (pageWidth * 12700)