diff --git a/src/Stack/Types/Config.hs b/src/Stack/Types/Config.hs
index 1e1f494e39..7bda2f005a 100644
--- a/src/Stack/Types/Config.hs
+++ b/src/Stack/Types/Config.hs
@@ -1199,11 +1199,8 @@ platformOnlyRelDir = do
     parseRelDir (Distribution.Text.display platform ++ platformVariantSuffix platformVariant)
 
 -- | Directory containing immutable cache
-
 immutableDir :: (MonadThrow m, MonadReader env m, HasEnvConfig env) => m (Path Abs Dir)
-immutableDir = do
-    root  <- view stackRootL
-    return $ root  </> $(mkRelDir "immutable")
+immutableDir = liftM (</> $(mkRelDir "immutable")) (view stackRootL)
 
 -- | Directory containing snapshots
 snapshotsDir :: (MonadReader env m, HasEnvConfig env, MonadThrow m) => m (Path Abs Dir)