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

Fix case and indentation

Browse Source 
darcs-hash:20090225073306-a4fee-a93aac7f0d47124c91a6b0a4899e9a96649d009d
This commit is contained in:
Henning Guenther 2009-02-24 23:33:06 -08:00
parent c2899caa35
commit 3b3f042529
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Data/Encoding.hs
View File

@ -306,7 +306,7 @@ encodingFromStringMaybe codeName = case (normalizeEncoding codeName) of
"macintosh" -> Just $ DynEncoding MacOSRoman "macintosh" -> Just $ DynEncoding MacOSRoman
-- JIS X 0201 -- JIS X 0201
"jis_x_0201" -> Just $ DynEncoding JISX0201 "jis_x_0201" -> Just $ DynEncoding JISX0201
-- JIS x 0208 -- JIS X 0208
"jis_x_0208" -> Just $ DynEncoding JISX0208 "jis_x_0208" -> Just $ DynEncoding JISX0208
-- ISO 2022-JP -- ISO 2022-JP
"iso_2022_jp" -> Just $ DynEncoding ISO2022JP "iso_2022_jp" -> Just $ DynEncoding ISO2022JP

2
Data/Encoding/Base.hs
View File

@ -44,7 +44,7 @@ untilM check act = do
x <- act x <- act
xs <- untilM check act xs <- untilM check act
return (x:xs) return (x:xs)
) )
untilM_ :: Monad m => m Bool -> m a -> m () untilM_ :: Monad m => m Bool -> m a -> m ()
untilM_ check act = untilM check act >> return () untilM_ check act = untilM check act >> return ()