From 2a2630625cbdb4978d8e62c972ac60fc5c9c383d Mon Sep 17 00:00:00 2001 From: Henning Guenther Date: Fri, 28 Aug 2009 14:34:41 -0700 Subject: [PATCH] Add Show instance for DynEncoding Ignore-this: 358ed8859aebfc1e9493150fbec0ff40 darcs-hash:20090828213441-a4fee-83066014b6a8b4d92c41c8bda7a36ea5c141673b --- Data/Encoding/Base.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/Data/Encoding/Base.hs b/Data/Encoding/Base.hs index 8b03007..20d6400 100644 --- a/Data/Encoding/Base.hs +++ b/Data/Encoding/Base.hs @@ -21,7 +21,10 @@ class Encoding enc where encode e = mapM_ (encodeChar e) encodeable :: enc -> Char -> Bool -data DynEncoding = forall enc. (Encoding enc,Eq enc,Typeable enc) => DynEncoding enc +data DynEncoding = forall enc. (Encoding enc,Eq enc,Typeable enc,Show enc) => DynEncoding enc + +instance Show DynEncoding where + show (DynEncoding enc) = show enc instance Encoding DynEncoding where decodeChar (DynEncoding e) = decodeChar e