diff --git a/shelly.cabal b/shelly.cabal
--- a/shelly.cabal
+++ b/shelly.cabal
@@ -1,6 +1,6 @@
 Name:       shelly
 
-Version:     1.5
+Version:     1.5.0.1
 Synopsis:    shell-like (systems) programming in Haskell
 
 Description: Shelly provides convenient systems programming in Haskell,
diff --git a/src/Shelly/Pipe.hs b/src/Shelly/Pipe.hs
--- a/src/Shelly/Pipe.hs
+++ b/src/Shelly/Pipe.hs
@@ -210,7 +210,7 @@
 
 -- | Performs 'shelly' and then an empty action @return ()@. 
 shs :: MonadIO m => Sh () -> m ()
-shs = void . shelly
+shs x = shelly x >> return ()
 
 -- | see 'S.shellyFailDir'
 shellyFailDir :: MonadIO m => Sh a -> m [a]
@@ -218,7 +218,7 @@
 
 -- | Performs 'shellyFailDir' and then an empty action @return ()@.
 shsFailDir :: MonadIO m => Sh () -> m ()
-shsFailDir = void . shellyFailDir
+shsFailDir x = shellyFailDir x >> return ()
 
 -- | see 'S.sub'
 sub :: Sh a -> Sh a