blob: bba2a52279d76e9fd8cc737f226fb9a9d4f04efd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
module Serialization (
module Data.Aeson,
Binary,
Generic,
sumOptions
) where
import GHC.Generics (Generic)
import Data.Binary
import Data.Aeson
import qualified Data.Aeson.Types as Aeson
-- | Nicer JSON encoding for sum types.
sumOptions :: Aeson.Options
sumOptions = defaultOptions { Aeson.sumEncoding = Aeson.ObjectWithSingleField }
|