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

Added recode helper functions

Browse Source 
darcs-hash:20070827015125-a4fee-4be7dd71426674c5896aa309aa7c2e502a08a362
This commit is contained in:
Henning Guenther 2007-08-26 18:51:25 -07:00
parent 59bc5d4305
commit ece4c7e788
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
Data/Encoding.hs
View File

@ -2,11 +2,15 @@ module Data.Encoding
(Encoding(..) (Encoding(..)
,EncodingException(..) ,EncodingException(..)
,DecodingException(..) ,DecodingException(..)
,recode
,recodeLazy
,DynEncoding() ,DynEncoding()
,encodingFromString ,encodingFromString
) )
where where
import Data.ByteString (ByteString)
import qualified Data.ByteString.Lazy as Lazy (ByteString)
import Data.Encoding.Base import Data.Encoding.Base
import Data.Encoding.ASCII import Data.Encoding.ASCII
import Data.Encoding.UTF8 import Data.Encoding.UTF8
@ -50,6 +54,13 @@ instance Encoding DynEncoding where
decodeLazy (DynEncoding enc) = decodeLazy enc decodeLazy (DynEncoding enc) = decodeLazy enc
decodable (DynEncoding enc) = decodable enc decodable (DynEncoding enc) = decodable enc
-- | This decodes a string from one encoding and encodes it into another.
recode :: (Encoding from,Encoding to) => from -> to -> ByteString -> ByteString
recode enc_f enc_t bs = encode enc_t (decode enc_f bs)
recodeLazy :: (Encoding from,Encoding to) => from -> to -> Lazy.ByteString -> Lazy.ByteString
recodeLazy enc_f enc_t bs = encodeLazy enc_t (decodeLazy enc_f bs)
-- | Takes the name of an encoding and creates a dynamic encoding from it. -- | Takes the name of an encoding and creates a dynamic encoding from it.
encodingFromString :: String -> DynEncoding encodingFromString :: String -> DynEncoding
encodingFromString "ASCII" = DynEncoding ASCII encodingFromString "ASCII" = DynEncoding ASCII