Fix case and indentation

darcs-hash:20090225073306-a4fee-a93aac7f0d47124c91a6b0a4899e9a96649d009d

Data/Encoding.hs

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

Data/Encoding/Base.hs

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