From 3b3f042529989c2767f1c192bfcd7eccd5704c3d Mon Sep 17 00:00:00 2001
From: Henning Guenther <h.guenther@tu-bs.de>
Date: Tue, 24 Feb 2009 23:33:06 -0800
Subject: [PATCH] Fix case and indentation

darcs-hash:20090225073306-a4fee-a93aac7f0d47124c91a6b0a4899e9a96649d009d
---
 Data/Encoding.hs      | 2 +-
 Data/Encoding/Base.hs | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

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 ()