diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,5 +1,9 @@
 # Revision history for executor
 
+## 0.0.2  -- 2017-08-20
+
+* Make the code a bit cleaner and consistent
+
 ## 0.0.1  -- 2017-08-19
 
 * First version. Released on an unsuspecting world.
diff --git a/Executor.hs b/Executor.hs
--- a/Executor.hs
+++ b/Executor.hs
@@ -4,29 +4,24 @@
 import Control.Concurrent.Async (async, wait)
 
 -- | Execute a single shell command
--- | Not much different from callCommand though
--- | for example:
--- | main = do
--- |  execSync "ls"
+-- Not much different from callCommand though
+-- for example:
+-- main = do
+--  execSync "ls"
 
 execSync :: String -> IO()
 
 execSync c = do
   task <- async (callCommand c)
   res <- wait task
-  return ()
+  return res
 
 -- | Execute a list of shell commands in sequence synchronously
--- | for example:
--- | main = do
--- |  execListSync ["ls", "whoami"]
+-- for example:
+-- main = do
+--  execListSync ["ls", "whoami"]
 
 execListSync :: [String] -> IO()
 
-execListSync (c:commands) = do
-  execSync c
-  if length commands > 0
-    then do
-      execListSync commands
-    else
-      return ()
+execListSync commands = do
+  mapM_ execSync commands
diff --git a/executor.cabal b/executor.cabal
--- a/executor.cabal
+++ b/executor.cabal
@@ -1,5 +1,5 @@
 name:                executor
-version:             0.0.1
+version:0.0.2
 description:         Haskell module to execute single or multiple shell commands
 synopsis:            Shell helpers
 homepage:            https://github.com/GianlucaGuarini/executor
diff --git a/test.hs b/test.hs
--- a/test.hs
+++ b/test.hs
@@ -2,7 +2,6 @@
 import Executor
 import System.Exit (exitSuccess)
 
-main :: IO()
 main = do
   execSync "ls"
   execListSync [