@@ -6,7 +6,7 @@ module Data.Id
66 ) where
77
88import Control.DeepSeq (NFData)
9−import Data.Aeson (FromJSON, ToJSON)
9+import Data.Aeson (FromJSON, FromJSONKey, ToJSON, ToJSONKey)
1010import Data.Binary (Binary)
1111import Data.Coerce (coerce)
1212import Data.Hashable (Hashable)
@@ -21,7 +21,7 @@ import Yesod.Core (PathPiece(..))
2121newtype Id (t :: k) = Id { unId :: UUID }
2222 deriving
2323 ( Eq, Ord, Generic, Read, Show, ToField, FromField, PathPiece, FromJSON
24− , ToJSON, NFData, Hashable)
24+ , ToJSON, NFData, Hashable, FromJSONKey, ToJSONKey)
2525
2626type role Id nominal
2727