diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -3,3 +3,7 @@
 ## 0.1.0.0 -- 2019-12-19
 
 * First version. Released on an unsuspecting world.
+
+## 0.1.1.0 -- 2019-12-19
+
+* First version revised A. Fixed an issue with an empty do-block (mismatched code indentation).
diff --git a/Main.hs b/Main.hs
--- a/Main.hs
+++ b/Main.hs
@@ -167,13 +167,13 @@
               withBinaryFile (nameSF ++ ".raw") AppendMode (appendS16LEFile (convertToProperUkrainian ys))
             putStrLn "The .raw file was created by the program. It will be processed further. "
             let ts = fromJust (showE "sox") in do
-            _ <- readProcessWithExitCode ts ["r22050","-c1","-L","-esigned-integer","-b16", nameSF ++ ".raw", 
-              fst . snd . genControl . concat $ args, nameSF ++ (snd . snd . genControl . concat $ args)] ""
-            removeFile $ nameSF ++ ".raw"
-            putStrLn "Would you like to play the resulting file now?"
-            pls <- getLine
-            if take 1 pls == "y" || take 1 pls == "Y" 
-               then playA $ nameSF ++ (snd . snd . genControl . concat $ args)
-               else return ())
+              _ <- readProcessWithExitCode ts ["r22050","-c1","-L","-esigned-integer","-b16", nameSF ++ ".raw", 
+                fst . snd . genControl . concat $ args, nameSF ++ (snd . snd . genControl . concat $ args)] ""
+              removeFile $ nameSF ++ ".raw"
+              putStrLn "Would you like to play the resulting file now?"
+              pls <- getLine
+              if take 1 pls == "y" || take 1 pls == "Y" 
+                then playA $ nameSF ++ (snd . snd . genControl . concat $ args)
+                else return ())
             
             
diff --git a/mmsyn7ukr.cabal b/mmsyn7ukr.cabal
--- a/mmsyn7ukr.cabal
+++ b/mmsyn7ukr.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                mmsyn7ukr
-version:             0.1.0.0
+version:             0.1.1.0
 synopsis:            A simple basic interface to some SoX functionality or the approximately Ukrainian speech synthesizer with your own recorded voice.
 description:         A program and a library that can be used as a simple basic interface to some SoX functionality or for producing the approximately Ukrainian speech with your own recorded voice.
 homepage:            https://hackage.haskell.org/package/mmsyn7ukr