Skip to content

Commit 16cb266

Browse files
authored
Merge pull request #686 from Tarrasch/fixes-to-tutorial
Fixes to tutorial (Client.lhs file)
2 parents 89cb306 + a425c3a commit 16cb266

File tree

1 file changed

+4
-3
lines changed

1 file changed

+4
-3
lines changed

doc/tutorial/Client.lhs

Lines changed: 4 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -27,8 +27,8 @@ Also, we need examples for some domain specific data types:
2727
2828
``` haskell
2929
data Position = Position
30-
{ x :: Int
31-
, y :: Int
30+
{ xCoord :: Int
31+
, yCoord :: Int
3232
} deriving (Show, Generic)
3333
3434
instance 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
135136
Here'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}
139140
HelloMessage {msg = "Hello, servant"}
140141
Email {from = "[email protected]", to = "[email protected]", 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
```

0 commit comments

Comments
 (0)