on master help sign in
Fix build with base >= 4.8 && unordered-containers < 0.2.6
ba6d46fAdam Bergmark
Data/Aeson/Types/Internal.hs+3
@@ -93,6 +93,9 @@ import Data.Traversable (Traversable(..))
93#if !MIN_VERSION_unordered_containers(0,2,6)
93#if !MIN_VERSION_unordered_containers(0,2,6)
94import Data.List (sort)
94import Data.List (sort)
95#endif
95#endif
96+#if MIN_VERSION_base(4,8,0) && !MIN_VERSION_unordered_containers(0,2,6)
97+import Data.Foldable (foldl')
98+#endif
96
99
97-- | Elements of a JSON path used to describe the location of an
100-- | Elements of a JSON path used to describe the location of an
98-- error.
101-- error.