@@ -29,7 +29,7 @@ Portability : portable
2929Functions for determining the size of a PNG, JPEG, or GIF image.
3030-}
3131module Text.Pandoc.ImageSize ( ImageType(..), imageType, imageSize,
32− sizeInPixels, sizeInPoints, readImageSize ) where
32+ sizeInPixels, sizeInPoints ) where
3333import Data.ByteString (ByteString, unpack)
3434import qualified Data.ByteString.Char8 as B
3535import Control.Monad
@@ -48,9 +48,6 @@ data ImageSize = ImageSize{
4848 } deriving (Read, Show, Eq)
4949
5050
51−readImageSize :: FilePath -> IO (Maybe ImageSize)
52−readImageSize fp = imageSize `fmap` B.readFile fp
53−
5451imageType :: ByteString -> Maybe ImageType
5552imageType img = case B.take 4 img of
5653 "\x89\x50\x4e\x47" -> return Png