File tree Expand file tree Collapse file tree 2 files changed +30
-4
lines changed
components/monoidmap-aeson/Data/MonoidMap Expand file tree Collapse file tree 2 files changed +30
-4
lines changed Original file line number Diff line number Diff line change @@ -59,24 +59,49 @@ import Data.Aeson
5959 , FromJSONKey
6060 , ToJSON (toEncoding , toJSON )
6161 , ToJSONKey
62+ , encode
63+ )
64+ import Data.Map.Strict
65+ ( Map
66+ )
67+ import Data.Monoid
68+ ( Sum
6269 )
6370import Data.Monoid.Null
6471 ( MonoidNull
6572 )
6673import Data.MonoidMap
6774 ( MonoidMap
75+ , fromList
76+ , fromMap
77+ , toMap
6878 )
6979
70- import qualified Data.MonoidMap as MonoidMap
80+ _importsRequiredForDocumentation :: ()
81+ _importsRequiredForDocumentation = ()
82+ where
83+ _encode = encode ()
84+
85+ _fromList :: (Ord k , MonoidNull v ) => [(k , v )] -> MonoidMap k v
86+ _fromList = fromList
87+
88+ _fromMap :: (Ord k , MonoidNull v ) => Map k v -> MonoidMap k v
89+ _fromMap = fromMap
90+
91+ _toMap :: (Ord k , MonoidNull v ) => MonoidMap k v -> Map k v
92+ _toMap = toMap
93+
94+ _Sum :: Sum ()
95+ _Sum = undefined
7196
7297instance
7398 ( ToJSONKey k
7499 , ToJSON v
75100 )
76101 => ToJSON (MonoidMap k v )
77102 where
78- toEncoding = toEncoding . MonoidMap. toMap
79- toJSON = toJSON . MonoidMap. toMap
103+ toEncoding = toEncoding . toMap
104+ toJSON = toJSON . toMap
80105
81106instance
82107 ( FromJSONKey k
@@ -86,4 +111,4 @@ instance
86111 )
87112 => FromJSON (MonoidMap k v )
88113 where
89- parseJSON = fmap (fmap MonoidMap. fromMap) parseJSON
114+ parseJSON = fmap (fmap fromMap) parseJSON
Original file line number Diff line number Diff line change @@ -98,6 +98,7 @@ library monoidmap-aeson
9898 import :
9999 , dependency-aeson
100100 , dependency-base
101+ , dependency-containers
101102 , dependency-monoid-subclasses
102103 , extensions
103104 visibility :
You can’t perform that action at this time.
0 commit comments