Merge pull request #3078 from Heather/redundant_map

redundant map after fold
haskell · Jan 26, 2016 · d775df9 · d775df9
2 parents 4aaa174 + 9a08677
commit d775df9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/cabal-install/Distribution/Client/Dependency/Modular/Dependency.hs b/cabal-install/Distribution/Client/Dependency/Modular/Dependency.hs
@@ -370,4 +370,4 @@ type VROrigin qpn = (VR, Goal qpn)
 -- | Helper function to collapse a list of version ranges with origins into
 -- a single, simplified, version range.
 collapse :: [VROrigin qpn] -> VR
-collapse = simplifyVR . L.foldr (.&&.) anyVR . L.map fst
+collapse = simplifyVR . L.foldr ((.&&.) . fst) anyVR