handle-like 0.0.0.8 → 0.0.0.9

raw patch · 2 files changed

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

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- Data.HandleLike: class Monad (HandleMonad h) => HandleLike h where type family HandleMonad h type family DebugLevel h type instance DebugLevel h = Int hlGetByte h = do { [b] <- unpack `liftM` hlGet h 1; return b } hlGetLine h = do { b <- hlGetByte h; case b of { 10 -> return "" _ -> cons b `liftM` hlGetLine h } } hlGetContent = flip hlGet 1 hlDebug _ _ _ = return () hlError _ msg = error $ unpack msg

+ Data.HandleLike: class (Monad (HandleMonad h), Num (DebugLevel h)) => HandleLike h where type family HandleMonad h type family DebugLevel h type instance DebugLevel h = Int hlGetByte h = do { [b] <- unpack `liftM` hlGet h 1; return b } hlGetLine h = do { b <- hlGetByte h; case b of { 10 -> return "" _ -> cons b `liftM` hlGetLine h } } hlGetContent = flip hlGet 1 hlDebug _ _ _ = return () hlError _ msg = error $ unpack msg

Files

handle-like.cabal +2/−2
src/Data/HandleLike.hs +2/−1

handle-like.cabal view

@@ -2,7 +2,7 @@ build-type:	Simple  name:		handle-like-version:	0.0.0.8+version:	0.0.0.9 stability:	Experimental author:		Yoshikuni Jujo <PAF01143@nifty.ne.jp> maintainer:	Yoshikuni Jujo <PAF01143@nifty.ne.jp>@@ -37,7 +37,7 @@ source-repository	this     type:	git     location:	git://github.com/YoshikuniJujo/forest-    tag:	handle-like-0.0.0.8+    tag:	handle-like-0.0.0.9  library     hs-source-dirs:	src

src/Data/HandleLike.hs view

@@ -8,7 +8,8 @@ import qualified Data.ByteString.Char8 as BSC import System.IO -class Monad (HandleMonad h) => HandleLike h where+class (Monad (HandleMonad h), Num (DebugLevel h)) =>+	HandleLike h where 	type HandleMonad h 	type DebugLevel h 	hlPut :: h -> BS.ByteString -> HandleMonad h ()