handle-like 0.0.0.6 → 0.0.0.7
raw patch · 2 files changed
+3/−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 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
+ 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 _ _ = return () hlError _ msg = error $ unpack msg
Files
- handle-like.cabal +2/−2
- src/Data/HandleLike.hs +1/−1
handle-like.cabal view
@@ -2,7 +2,7 @@ build-type: Simple name: handle-like-version: 0.0.0.6+version: 0.0.0.7 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.6+ tag: handle-like-0.0.0.7 library hs-source-dirs: src
src/Data/HandleLike.hs view
@@ -26,7 +26,7 @@ 10 -> return "" _ -> BS.cons b `liftM` hlGetLine h hlGetContent = flip hlGet 1- hlDebug = hlPut+ hlDebug _ _ = return () hlError _ msg = error $ BSC.unpack msg instance HandleLike Handle where