insert-ordered-containers 0.1.0.0 → 0.1.0.1
raw patch · 2 files changed
+6/−8 lines, 2 filesdep ~basedep ~lensdep ~semigroupoids
Dependency ranges changed: base, lens, semigroupoids
Files
insert-ordered-containers.cabal view
@@ -3,7 +3,7 @@ -- see: https://github.com/sol/hpack name: insert-ordered-containers-version: 0.1.0.0+version: 0.1.0.1 synopsis: Associative containers retating insertion order for traversals. description: Associative containers retating insertion order for traversals. category: Web@@ -29,7 +29,7 @@ src ghc-options: -Wall build-depends:- base >=4.7 && <4.9+ base >=4.7 && <4.10 , aeson >=0.8.0.2 && <0.12 , base-compat >=0.6.0 && <0.10 , hashable >=1.2.3.3 && <1.4@@ -50,7 +50,7 @@ test ghc-options: -Wall build-depends:- base >=4.7 && <4.9+ base >=4.7 && <4.10 , aeson >=0.8.0.2 && <0.12 , base-compat >=0.6.0 && <0.10 , hashable >=1.2.3.3 && <1.4
src/Data/HashMap/Strict/InsOrd.hs view
@@ -108,8 +108,6 @@ import Data.HashMap.Strict (HashMap) import qualified Data.HashMap.Strict as HashMap -import Debug.Trace- ------------------------------------------------------------------------------- -- Strict Pair Int a -------------------------------------------------------------------------------@@ -232,13 +230,13 @@ instance ToJSONKey Text where toJSONKey = id -instance (ToJSONKey k, ToJSON v, Show k, Show v) => ToJSON (InsOrdHashMap k v) where+instance (ToJSONKey k, ToJSON v) => ToJSON (InsOrdHashMap k v) where toJSON = object . fmap f . toList where- f (k, v) = traceShow "foo" $ toJSONKey k .= v+ f (k, v) = toJSONKey k .= v #if MIN_VERSION_aeson(0,10,0)- toEncoding = pairs . mconcat . fmap f . traceShowId . toList+ toEncoding = pairs . mconcat . fmap f . toList where f (k, v) = toJSONKey k .= v #endif