handle-like 0.0.0.4 → 0.0.0.5
raw patch · 2 files changed
+4/−2 lines, 2 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
+ Data.HandleLike: hlDebug :: HandleLike h => h -> ByteString -> HandleMonad h ()
- Data.HandleLike: class Monad (HandleMonad h) => HandleLike h where type family HandleMonad h 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 hlError _ msg = error $ unpack msg
+ Data.HandleLike: class Monad (HandleMonad h) => HandleLike h where type family HandleMonad h 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 = hlPut hlError _ msg = error $ unpack msg
Files
- handle-like.cabal +2/−2
- src/Data/HandleLike.hs +2/−0
handle-like.cabal view
@@ -2,7 +2,7 @@ build-type: Simple name: handle-like-version: 0.0.0.4+version: 0.0.0.5 stability: Experimental author: Yoshikuni Jujo <PAF01143@nifty.ne.jp> maintainer: Yoshikuni Jujo <PAF01143@nifty.ne.jp>@@ -35,7 +35,7 @@ source-repository this type: git location: git://github.com/YoshikuniJujo/forest- tag: handle-like-0.0.0.4+ tag: handle-like-0.0.0.5 library hs-source-dirs: src
src/Data/HandleLike.hs view
@@ -16,6 +16,7 @@ hlGetLine :: h -> HandleMonad h BS.ByteString hlGetContent :: h -> HandleMonad h BS.ByteString hlClose :: h -> HandleMonad h ()+ hlDebug :: h -> BS.ByteString -> HandleMonad h () hlError :: h -> BS.ByteString -> HandleMonad h a hlGetByte h = do [b] <- BS.unpack `liftM` hlGet h 1; return b@@ -25,6 +26,7 @@ 10 -> return "" _ -> BS.cons b `liftM` hlGetLine h hlGetContent = flip hlGet 1+ hlDebug = hlPut hlError _ msg = error $ BSC.unpack msg instance HandleLike Handle where