haskell/aeson
Auf GitHub ansehenMismatch between derived To/FromJSONKey and To/FromJSON instances for "strings"
Open
#463 geöffnet am 27. Aug. 2016
help wantedissue: breaking change
Repository-Metriken
- Stars
- (1.298 Stars)
- PR-Merge-Metriken
- (Durchschn. Merge 89T 5h) (9 gemergte PRs in 30 T)
Beschreibung
I think this was an oversight and we need generics for To/FromJSONKey to make those instances match To/FromJSON.
The reason this happens is that deriving ToJSON for some types such as "enumerables" produces a string, but the ToJSONKey instance's default is always to produce an Array of arrays instead of an object, even when the key serializes to a string.
#!/usr/bin/env stack
-- stack --resolver nightly-2016-08-27 --install-ghc runghc --package aeson-1.0.0.0 --package semigroups-0.18.2 --package unordered-containers --package hashable
{-# LANGUAGE DeriveGeneric #-}
import Data.Aeson
import Data.Hashable
import GHC.Generics
import qualified Data.ByteString.Lazy.Char8 as L
import qualified Data.HashMap.Strict as H
data T = A | B deriving (Eq, Generic)
instance Hashable T
instance ToJSON T
instance ToJSONKey T
main :: IO ()
main = do
L.putStrLn $ encode A -- => "A"
L.putStrLn $ encode (H.fromList [(A, 'a')]) -- => [["A","a"]]