@@ -66,7 +66,7 @@ genericParseJSON opts = fmap to . gParseJSON opts
67-- @{-\# LANGUAGE OverloadedStrings #-}
67-- @{-\# LANGUAGE OverloadedStrings #-}
69−-- data Coord { x :: Double, y :: Double }
69+-- data Coord = Coord { x :: Double, y :: Double }
71-- instance ToJSON Coord where
71-- instance ToJSON Coord where
72-- toJSON (Coord x y) = 'object' [\"x\" '.=' x, \"y\" '.=' y]
72-- toJSON (Coord x y) = 'object' [\"x\" '.=' x, \"y\" '.=' y]
@@ -99,7 +99,7 @@ genericParseJSON opts = fmap to . gParseJSON opts
100-- import GHC.Generics
100-- import GHC.Generics
102−-- data Coord { x :: Double, y :: Double } deriving Generic
102+-- data Coord = Coord { x :: Double, y :: Double } deriving Generic
104-- instance ToJSON Coord
104-- instance ToJSON Coord
@@ -131,7 +131,7 @@ class ToJSON a where
132-- @{-\# LANGUAGE OverloadedStrings #-}
132-- @{-\# LANGUAGE OverloadedStrings #-}
134−-- data Coord { x :: Double, y :: Double }
134+-- data Coord = Coord { x :: Double, y :: Double }
136-- instance FromJSON Coord where
136-- instance FromJSON Coord where
137-- parseJSON ('Object' v) = Coord '<$>'
137-- parseJSON ('Object' v) = Coord '<$>'
@@ -169,7 +169,7 @@ class ToJSON a where
170-- import GHC.Generics
170-- import GHC.Generics
172−-- data Coord { x :: Double, y :: Double } deriving Generic
172+-- data Coord = Coord { x :: Double, y :: Double } deriving Generic
174-- instance FromJSON Coord
174-- instance FromJSON Coord