diff options
Diffstat (limited to 'src/Text/Pandoc/ImageSize.hs')
-rw-r--r-- | src/Text/Pandoc/ImageSize.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/Text/Pandoc/ImageSize.hs b/src/Text/Pandoc/ImageSize.hs index d9ded22be..d11f59fdc 100644 --- a/src/Text/Pandoc/ImageSize.hs +++ b/src/Text/Pandoc/ImageSize.hs @@ -212,9 +212,7 @@ showInPixel opts dim = T.pack $ show $ inPixel opts dim numUnit :: T.Text -> Maybe (Double, T.Text) numUnit s = let (nums, unit) = T.span (\c -> isDigit c || ('.'==c)) s - in case safeRead nums of - Just n -> Just (n, unit) - Nothing -> Nothing + in (\n -> (n, unit)) <$> safeRead nums -- | Scale a dimension by a factor. scaleDimension :: Double -> Dimension -> Dimension |