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.12 +version: 0.0.0.13 stability: Experimental author: Yoshikuni Jujo maintainer: Yoshikuni Jujo @@ -38,7 +38,7 @@ source-repository this type: git location: git://github.com/YoshikuniJujo/forest - tag: handle-like-0.0.0.12 + tag: handle-like-0.0.0.13 library hs-source-dirs: src diff --git a/src/Data/HandleLike/Class.hs b/src/Data/HandleLike/Class.hs --- a/src/Data/HandleLike/Class.hs +++ b/src/Data/HandleLike/Class.hs @@ -11,7 +11,8 @@ import qualified Data.ByteString.Char8 as BSC import Data.String -class (Monad (HandleMonad h), IsString (DebugLevel h)) => +class (Monad (HandleMonad h), + IsString (DebugLevel h), Ord (DebugLevel h)) => HandleLike h where type HandleMonad h type DebugLevel h @@ -40,7 +41,8 @@ hlPutStrLn :: HandleLike h => h -> BS.ByteString -> HandleMonad h () hlPutStrLn h = hlPut h . (`BS.append` "\n") -data Priority = Low | Moderate | High | Critical deriving (Show, Read, Enum) +data Priority = Low | Moderate | High | Critical + deriving (Show, Read, Eq, Ord, Enum) instance IsString Priority where fromString s = case takeWhile (/= ':') s of