OpenAFP 1.3.1 → 1.3.2

raw patch · 2 files changed

+3/−1 lines, 2 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- OpenAFP.Types.Chunk: (....) :: (Monad m, Monad (t1 m), MonadTrans t1, Rec a, Chunk c) => a -> (a -> m t) -> (ChunkType, c -> t1 m [c])

+ OpenAFP.Types.Chunk: (....) :: (Monad (t1 m), Monad m, MonadTrans t1, Rec a, Chunk c) => a -> (a -> m t) -> (ChunkType, c -> t1 m [c])

- OpenAFP.Types.Chunk: (.....) :: (Monad m, Monad (t2 m), Monad (t1 (t2 m)), MonadTrans t2, MonadTrans t1, Rec a, Chunk c) => a -> (a -> m t) -> (ChunkType, c -> t1 (t2 m) [c])

+ OpenAFP.Types.Chunk: (.....) :: (Monad (t1 (t2 m)), Monad (t2 m), Monad m, MonadTrans t1, MonadTrans t2, Rec a, Chunk c) => a -> (a -> m t) -> (ChunkType, c -> t1 (t2 m) [c])

OpenAFP.cabal view

@@ -1,5 +1,5 @@ name:               OpenAFP-version:            1.3.1+version:            1.3.2 license:            PublicDomain License-file:       LICENSE cabal-version:      >= 1.6

src/OpenAFP/Internals/Ebc2Asc.hs view

@@ -196,6 +196,8 @@     = (CP950, 10) -- X08PD0SB etc. (TBB)     | C.pack "T0XXXX" `C.isPrefixOf` font     = (CP939, 10) -- T0XXXX means Japanese. (CHB)+    | C.pack "T1R" `C.isPrefixOf` font+    = (CP939, sz `div` 2) -- T1R___ means Japanese. (CHB)     | (not (C.null font) && C.last font == 'T')       || (not (C.null namePart) && C.last namePart == 'S')     = (CP835, sz `div` 2) -- M40T, NS32