Small refactoring.

haskell · Jun 25, 2019 · ac1fc0f · ac1fc0f
1 parent cff7a61
commit ac1fc0f
Showing 1 changed file with 3 additions and 1 deletion.
diff --git 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)