git.iko.soy/monoidal-containers
on master help sign in
relax constraint on singleton
commitf9bbf89b0f59ebcccbf116beefb26ce6d416cc69 authordbornside <dan.bornside@obsidian.systems> dateThu 16 Aug 2018, 19:20 (8 years ago) parent21eb339
2 files changed+2−2
compare with master
unifiedsplit
src/Data/Map/Monoidal.hs+1−1 src/Data/Map/Monoidal/Strict.hs+1−1
src/Data/Map/Monoidal.hs+1−1
@@ -218,7 +218,7 @@ instance (Ord k, Semigroup a) => IsList.IsList (MonoidalMap k a) where
218218#endif
219219
220220-- | /O(1)/. A map with a single element.
221−singleton :: Ord k => k -> a -> MonoidalMap k a
221+singleton :: k -> a -> MonoidalMap k a
222222singleton k a = MonoidalMap $ M.singleton k a
223223{-# INLINE singleton #-}
224224
src/Data/Map/Monoidal/Strict.hs+1−1
@@ -218,7 +218,7 @@ instance (Ord k, Semigroup a) => IsList.IsList (MonoidalMap k a) where
218218#endif
219219
220220-- | /O(1)/. A map with a single element.
221−singleton :: Ord k => k -> a -> MonoidalMap k a
221+singleton :: k -> a -> MonoidalMap k a
222222singleton k a = MonoidalMap $ M.singleton k a
223223{-# INLINE singleton #-}
224224