@@ -27,8 +27,8 @@ Also, we need examples for some domain specific data types:
2727
2828``` haskell
2929data Position = Position
30− { x :: Int
31− , y :: Int
30+ { xCoord :: Int
31+ , yCoord :: Int
3232 } deriving (Show, Generic)
3333
3434instance FromJSON Position
@@ -107,6 +107,7 @@ data BaseUrl = BaseUrl
107107 { baseUrlScheme :: Scheme -- ^ URI scheme to use
108108 , baseUrlHost :: String -- ^ host (eg "haskell.org")
109109 , baseUrlPort :: Int -- ^ port (eg 80)
110+ , baseUrlPath :: String -- ^ path (eg "/a/b/c")
110111 }
111112```
112113
@@ -135,7 +136,7 @@ run = do
135136Here's the output of the above code running against the appropriate server:
136137
137138``` bash
138−Position {x = 10, y = 10}
139+Position {xCoord = 10, yCoord = 10}
139140HelloMessage {msg = "Hello, servant"}
140141Email {from = "great@company.com", to = "alp@foo.com", subject = "Hey Alp, we miss you!", body = "Hi Alp,\n\nSince you've recently turned 26, have you checked out our latest haskell, mathematics products? Give us a visit!"}
141142```