diff --git a/Data/Encoding.hs b/Data/Encoding.hs
index cc04b8f..895aa48 100644
--- a/Data/Encoding.hs
+++ b/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
diff --git a/Data/Encoding/Base.hs b/Data/Encoding/Base.hs
index 2ef95e8..98934b2 100644
--- a/Data/Encoding/Base.hs
+++ b/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 ()