diff options
author | John MacFarlane <jgm@berkeley.edu> | 2013-01-11 15:44:16 -0800 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2013-01-11 15:44:16 -0800 |
commit | 1cc4e7db52e73ecb3facb879ecc95f9eb4f1316f (patch) | |
tree | cccd900495a7910bf2fd16f4a3da5b71df859aac | |
parent | 2a0ed1c433a8c4c35dac969bf5ce6855b5788c99 (diff) | |
download | pandoc-1cc4e7db52e73ecb3facb879ecc95f9eb4f1316f.tar.gz |
ImageSize: Remove no longer exported readImageSize.
-rw-r--r-- | src/Text/Pandoc/ImageSize.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/src/Text/Pandoc/ImageSize.hs b/src/Text/Pandoc/ImageSize.hs index 66020b4e2..f97cda28c 100644 --- a/src/Text/Pandoc/ImageSize.hs +++ b/src/Text/Pandoc/ImageSize.hs @@ -29,7 +29,7 @@ Portability : portable Functions for determining the size of a PNG, JPEG, or GIF image. -} module Text.Pandoc.ImageSize ( ImageType(..), imageType, imageSize, - sizeInPixels, sizeInPoints, readImageSize ) where + sizeInPixels, sizeInPoints ) where import Data.ByteString (ByteString, unpack) import qualified Data.ByteString.Char8 as B import Control.Monad @@ -48,9 +48,6 @@ data ImageSize = ImageSize{ } deriving (Read, Show, Eq) -readImageSize :: FilePath -> IO (Maybe ImageSize) -readImageSize fp = imageSize `fmap` B.readFile fp - imageType :: ByteString -> Maybe ImageType imageType img = case B.take 4 img of "\x89\x50\x4e\x47" -> return Png |