@@ -4,12 +4,8 @@ import Data.Aeson.TH
4import Network.Docker.Utils
4import Network.Docker.Utils
6dopts :: Options
6dopts :: Options
7−dopts = Options {
7+dopts = defaultOptions {
8 fieldLabelModifier = strip_underscore
8 fieldLabelModifier = strip_underscore
9− , constructorTagModifier = id
10− , allNullaryToStringTag = True
11− , omitNothingFields = True
12− , sumEncoding = defaultTaggedObject