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

export encodingFromStringMaybe (as encodingFromStringExplicit for consistency)

Browse Source 
Ignore-this: 93f0968658fbdcd66f8f352308ebb1d5

darcs-hash:20090730233821-76d51-9ee074434d3626ad1a49cc44678d937fdb8750ce
This commit is contained in:
Daniel Wagner 2009-07-30 16:38:21 -07:00
parent 8b5975bde5
commit 9f3cb62771
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Data/Encoding.hs
View File

@ -19,6 +19,7 @@ module Data.Encoding
,decodeStrictByteString ,decodeStrictByteString
,decodeStrictByteStringExplicit ,decodeStrictByteStringExplicit
,encodingFromString ,encodingFromString
,encodingFromStringExplicit
) )
where where
@ -125,8 +126,8 @@ decodeStrictByteStringExplicit :: Encoding enc => enc -> BS.ByteString -> Either
decodeStrictByteStringExplicit e str = evalStateT (decode e) str decodeStrictByteStringExplicit e str = evalStateT (decode e) str
-- | Like 'encodingFromString' but returns 'Nothing' instead of throwing an error -- | Like 'encodingFromString' but returns 'Nothing' instead of throwing an error
encodingFromStringMaybe :: String -> Maybe DynEncoding encodingFromStringExplicit :: String -> Maybe DynEncoding
encodingFromStringMaybe codeName = case (normalizeEncoding codeName) of encodingFromStringExplicit codeName = case (normalizeEncoding codeName) of
-- ASCII -- ASCII
"ascii" -> Just $ DynEncoding ASCII "ascii" -> Just $ DynEncoding ASCII
"646" -> Just $ DynEncoding ASCII "646" -> Just $ DynEncoding ASCII
@ -321,4 +322,4 @@ encodingFromString :: String -> DynEncoding
encodingFromString str = maybe encodingFromString str = maybe
(error $ "Data.Encoding.encodingFromString: Unknown encoding: "++show str) (error $ "Data.Encoding.encodingFromString: Unknown encoding: "++show str)
id id
(encodingFromStringMaybe str) (encodingFromStringExplicit str)