ktx-codec 0.0.1.0 → 0.0.1.1
raw patch · 3 files changed
+15/−10 lines, 3 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- ChangeLog.md +12/−2
- ktx-codec.cabal +2/−2
- src/Codec/Ktx.hs +1/−6
ChangeLog.md view
@@ -1,3 +1,13 @@-# Changelog for ktx+# Changelog for ktx-codec -## Unreleased changes+## [0.0.1.1] - 2020-08-24++* Debug traces removed.++[0.0.1.1]: https://gitlab.com/dpwiz/ktx/-/tree/v0.0.1.1-codec++## [0.0.1.0] - 2020-08-23++* Initial release.++[0.0.1.0]: https://gitlab.com/dpwiz/ktx/-/tree/v0.0.1.0-codec
ktx-codec.cabal view
@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: fefddec4091fd40932865a839c649f4c8d82ecce52ef3f70f527a25c3d04c1d5+-- hash: b3d919b1cb108455f9f11c9c1d401b54550721d77b0af43ef70d021927dd3bf3 name: ktx-codec-version: 0.0.1.0+version: 0.0.1.1 synopsis: Khronos texture format description: KTX is a format for storing textures for OpenGL® and OpenGL® ES applications. It is distinguished by the simplicity of the loader required to instantiate a
src/Codec/Ktx.hs view
@@ -1,7 +1,5 @@ module Codec.Ktx where -import Debug.Trace- import Data.Binary (Binary(..), decodeFileOrFail) import Data.Binary.Get (Get, ByteOffset, getWord32le, getWord32be, getByteString, skip) import Data.Binary.Put (Put, putByteString, putWord32le)@@ -197,8 +195,7 @@ ] getImages :: Header -> Get MipLevels-getImages Header{..} = do- traceM $ "numberOfMipmapLevels: " <> show numberOfMipmapLevels'+getImages Header{..} = some_ numberOfMipmapLevels' do imageSize <- getImageSize @@ -211,8 +208,6 @@ `div` numberOfArrayElements' `div` numberOfFaces `div` pixelDepth'- traceM $ " sliceSize: " <> show sliceSize- traceM $ " numberOfArrayElements: " <> show numberOfArrayElements elements <- some_ numberOfArrayElements' $ some_ numberOfFaces $