diff --git a/handle-like.cabal b/handle-like.cabal --- a/handle-like.cabal +++ b/handle-like.cabal @@ -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 maintainer: Yoshikuni Jujo @@ -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 diff --git a/src/Data/HandleLike.hs b/src/Data/HandleLike.hs --- a/src/Data/HandleLike.hs +++ b/src/Data/HandleLike.hs @@ -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 ()