diff --git a/src/Zifter/Stack.hs b/src/Zifter/Stack.hs
--- a/src/Zifter/Stack.hs
+++ b/src/Zifter/Stack.hs
@@ -61,21 +61,9 @@
 stackBuild :: Zift ()
 stackBuild = do
     rd <- getRootDir
-    tups <- stackGetPackageTargetTuples
-    forM_ tups $ \(package_, targets) -> do
-        let cleanCmd = "stack clean " ++ package_
-        cec <-
-            liftIO $ do
-                (_, _, _, ph) <-
-                    createProcess
-                        ((shell cleanCmd) {cwd = Just $ toFilePath rd})
-                waitForProcess ph
-        case cec of
-            ExitFailure c ->
-                fail $ unwords [cleanCmd, "failed with exit code", show c]
-            ExitSuccess -> pure ()
-        forM_ targets $ \target -> do
-            let buildCmd = "stack build --pedantic --haddock --test " ++ target
+    let stack :: String -> Zift ()
+        stack args = do
+            let buildCmd = unwords ["stack", args]
             bec <-
                 liftIO $ do
                     (_, _, _, bph) <-
@@ -87,3 +75,9 @@
                     fail $ unwords [buildCmd, "failed with exit code", show c]
                 ExitSuccess ->
                     printPreprocessingDone $ unwords [buildCmd, "succeeded."]
+    tups <- stackGetPackageTargetTuples
+    stack "build"
+    forM_ tups $ \(package_, targets) -> do
+        stack $ unwords ["clean", package_]
+        forM_ targets $ \target ->
+            stack $ unwords ["build --pedantic --haddock --test", target]
diff --git a/zifter-stack.cabal b/zifter-stack.cabal
--- a/zifter-stack.cabal
+++ b/zifter-stack.cabal
@@ -1,5 +1,5 @@
 name: zifter-stack
-version: 0.0.0.1
+version: 0.0.0.2
 cabal-version: >=1.10
 build-type: Simple
 license: MIT