png-chunk-yaftee 0.1.0.2 → 0.1.0.3
raw patch · 2 files changed
+7/−5 lines, 2 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
- Control.Monad.Yaftee.Pipe.Png.Chunk: hEncode :: forall (es :: [(Type -> Type -> Type -> Type) -> Type -> Type -> Type -> Type]) o. forall (nm :: Symbol) -> (Member P es, Member (Named nm C) es, Member (E String) es, Member F es, Base I es) => Handle -> E es C o ()
+ Control.Monad.Yaftee.Pipe.Png.Chunk: hEncode :: forall (es :: [(Type -> Type -> Type -> Type) -> Type -> Type -> Type -> Type]) o. forall (nm :: Symbol) -> (Member P es, EncodeMembers nm es, Member (E String) es, Member F es, Base I es) => Handle -> E es C o ()
- Control.Monad.Yaftee.Pipe.Png.Chunk: type DecodeStates (nm :: Symbol) = '[Named nm C]
+ Control.Monad.Yaftee.Pipe.Png.Chunk: type DecodeStates (nm :: Symbol) = Named nm C ': States nm
Files
png-chunk-yaftee.cabal view
@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack name: png-chunk-yaftee-version: 0.1.0.2+version: 0.1.0.3 synopsis: PNG's chunk codec on Yaftee description: Please see the README on GitHub at <https://github.com/YoshikuniJujo/png-chunk-yaftee#readme> category: Codec,Graphics,Image
src/Control/Monad/Yaftee/Pipe/Png/Chunk.hs view
@@ -55,9 +55,11 @@ decodeRun_ :: forall nm es i o r . F.Loose (U.U es) => Eff.E (DecodeStates nm `Append` es) i o r -> Eff.E es i o ()-decodeRun_ = void . (`State.runN` Crc32.initial)+decodeRun_ = void . OnDemand.run . (`State.runN` Crc32.initial) -type DecodeStates nm = '[State.Named nm Crc32.C]+type DecodeStates nm =+ State.Named nm Crc32.C ':+ OnDemand.States nm decode :: forall nm -> (@@ -160,7 +162,7 @@ fix \go -> (`when` go) =<< encodeChunk1 nm hEncode :: forall nm -> (- U.Member Pipe.P es, U.Member (State.Named nm Crc32.C) es,+ U.Member Pipe.P es, EncodeMembers nm es, U.Member (Except.E String) es, U.Member Fail.F es, U.Base IO.I es ) => Handle -> Eff.E es C o () hEncode nm ho = void $ encode nm@@ -168,7 +170,7 @@ Pipe.=$= PipeBS.hPutStr ho encodeChunk1 :: forall nm -> (- U.Member Pipe.P es, U.Member (State.Named nm Crc32.C) es,+ U.Member Pipe.P es, EncodeMembers nm es, U.Member (Except.E String) es, U.Member Fail.F es ) => Eff.E es C BSF.ByteString Bool encodeChunk1 nm = do