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