@@ -66,7 +66,7 @@ genericParseJSON opts = fmap to . gParseJSON opts
6666--
6767-- @{-\# LANGUAGE OverloadedStrings #-}
6868--
69−-- data Coord { x :: Double, y :: Double }
69+-- data Coord = Coord { x :: Double, y :: Double }
7070--
7171-- instance ToJSON Coord where
7272-- toJSON (Coord x y) = 'object' [\"x\" '.=' x, \"y\" '.=' y]
@@ -99,7 +99,7 @@ genericParseJSON opts = fmap to . gParseJSON opts
9999--
100100-- import GHC.Generics
101101--
102−-- data Coord { x :: Double, y :: Double } deriving Generic
102+-- data Coord = Coord { x :: Double, y :: Double } deriving Generic
103103--
104104-- instance ToJSON Coord
105105-- @
@@ -131,7 +131,7 @@ class ToJSON a where
131131--
132132-- @{-\# LANGUAGE OverloadedStrings #-}
133133--
134−-- data Coord { x :: Double, y :: Double }
134+-- data Coord = Coord { x :: Double, y :: Double }
135135--
136136-- instance FromJSON Coord where
137137-- parseJSON ('Object' v) = Coord '<$>'
@@ -169,7 +169,7 @@ class ToJSON a where
169169--
170170-- import GHC.Generics
171171--
172−-- data Coord { x :: Double, y :: Double } deriving Generic
172+-- data Coord = Coord { x :: Double, y :: Double } deriving Generic
173173--
174174-- instance FromJSON Coord
175175-- @