aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2013-01-11 15:44:16 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2013-01-11 15:44:16 -0800
commit1cc4e7db52e73ecb3facb879ecc95f9eb4f1316f (patch)
treecccd900495a7910bf2fd16f4a3da5b71df859aac
parent2a0ed1c433a8c4c35dac969bf5ce6855b5788c99 (diff)
downloadpandoc-1cc4e7db52e73ecb3facb879ecc95f9eb4f1316f.tar.gz
ImageSize: Remove no longer exported readImageSize.
-rw-r--r--src/Text/Pandoc/ImageSize.hs5
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