haskell/encoding
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add Show instance for DynEncoding

Browse Source 
Ignore-this: 358ed8859aebfc1e9493150fbec0ff40

darcs-hash:20090828213441-a4fee-83066014b6a8b4d92c41c8bda7a36ea5c141673b
This commit is contained in:
Henning Guenther 2009-08-28 14:34:41 -07:00
parent e0231b1213
commit 2a2630625c
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Data/Encoding/Base.hs
View File

@ -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