diff --git a/doc/tutorial/Client.lhs b/doc/tutorial/Client.lhs index fa825e2c..42150872 100644 --- a/doc/tutorial/Client.lhs +++ b/doc/tutorial/Client.lhs @@ -27,8 +27,8 @@ Also, we need examples for some domain specific data types: ``` haskell data Position = Position - { x :: Int - , y :: Int + { xCoord :: Int + , yCoord :: Int } deriving (Show, Generic) instance FromJSON Position @@ -107,6 +107,7 @@ data BaseUrl = BaseUrl { baseUrlScheme :: Scheme -- ^ URI scheme to use , baseUrlHost :: String -- ^ host (eg "haskell.org") , baseUrlPort :: Int -- ^ port (eg 80) + , baseUrlPath :: String -- ^ path (eg "/a/b/c") } ``` @@ -135,7 +136,7 @@ run = do Here's the output of the above code running against the appropriate server: ``` bash -Position {x = 10, y = 10} +Position {xCoord = 10, yCoord = 10} HelloMessage {msg = "Hello, servant"} Email {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!"} ```