diff --git a/Cabal/Distribution/Simple/ShowBuildInfo.hs b/Cabal/Distribution/Simple/ShowBuildInfo.hs
index f242ca7d49cb8c642092e46addd5b7b69317e77e..2a41962fb6e97ded8a295a3fae2da889220388d0 100644
--- a/Cabal/Distribution/Simple/ShowBuildInfo.hs
+++ b/Cabal/Distribution/Simple/ShowBuildInfo.hs
@@ -82,7 +82,9 @@ mkBuildInfo
   -> Json
 mkBuildInfo pkg_descr lbi _flags targetsToBuild = info
   where
-    componentsToBuild = map (\target -> (componentLocalName $ targetCLBI target,targetCLBI target)) targetsToBuild
+    targetToNameAndLBI target =
+      (componentLocalName $ targetCLBI target, targetCLBI target)
+    componentsToBuild = map targetToNameAndLBI targetsToBuild
     (.=) :: String -> Json -> (String, Json)
     k .= v = (k, v)