From 579e6533b1bd24c4422e947c81698a0afca536d5 Mon Sep 17 00:00:00 2001 From: Andrea Bedini Date: Fri, 29 Nov 2024 12:02:13 +0800 Subject: [PATCH] Fix mistake in BuildInfo.Lens.hs ``` cxxSources f s = fmap (\x -> s{T.cSources = x}) (f (T.cxxSources s)) ``` should be ``` cxxSources f s = fmap (\x -> s{T.cxxSources = x}) (f (T.cxxSources s)) ``` --- Cabal-syntax/src/Distribution/Types/BuildInfo/Lens.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Cabal-syntax/src/Distribution/Types/BuildInfo/Lens.hs b/Cabal-syntax/src/Distribution/Types/BuildInfo/Lens.hs index ac99f3c65a5..a53301ae46c 100644 --- a/Cabal-syntax/src/Distribution/Types/BuildInfo/Lens.hs +++ b/Cabal-syntax/src/Distribution/Types/BuildInfo/Lens.hs @@ -267,7 +267,7 @@ instance HasBuildInfo BuildInfo where cSources f s = fmap (\x -> s{T.cSources = x}) (f (T.cSources s)) {-# INLINE cSources #-} - cxxSources f s = fmap (\x -> s{T.cSources = x}) (f (T.cxxSources s)) + cxxSources f s = fmap (\x -> s{T.cxxSources = x}) (f (T.cxxSources s)) {-# INLINE cxxSources #-} jsSources f s = fmap (\x -> s{T.jsSources = x}) (f (T.jsSources s))