diff --git a/src/Stack/Build/Target.hs b/src/Stack/Build/Target.hs
index 35e22e1565..3376e2f17e 100644
--- a/src/Stack/Build/Target.hs
+++ b/src/Stack/Build/Target.hs
@@ -188,7 +188,7 @@ parseRawTargetDirs root locals ri =
   projectTypo :: Int -> Int -> String -> StyleDoc
   projectTypo padLength dropLength option =
     vsep
-      [ style Dir ((fromString $ replicate padLength ' ') <> (fromString $ T.unpack t))
+      [ style Dir (fromString (replicate padLength ' ') <> fromString (T.unpack t))
         <> " is not a directory."
       , style Highlight (fromString $ "--" <> option)
         <> style Dir (fromString . drop dropLength $ T.unpack t)