on master help sign in
Use foldl' instead of foldl
commitd43af274be7867e155b1320b43e2a89b891d8ea2 authorSimon Hengel <sol@typeful.net> dateWed 22 Aug 2018, 22:22 (8 years ago) parent75a53b8
1 file changed+1−1
src/Data/Yaml/Internal.hs+1−1
src/Data/Yaml/Internal.hs+1−1
@@ -247,7 +247,7 @@ parseM mergedKeys a front = do
247247 if s == pack "<<"
248248 then case o of
249249 Object l -> return (merge l)
250− Array l -> return $ merge $ foldl mergeObjects M.empty $ V.toList l
250+ Array l -> return $ merge $ foldl' mergeObjects M.empty $ V.toList l
251251 _ -> al
252252 else al
253253 parseM mergedKeys' a al'