update the example to show off multiple-responses

example/greet.hs

@@ -39,6 +39,11 @@ instance ToParam (QueryParam "capital" Bool) where
 instance ToSample Greet where
   toSample = Just $ Greet "Hello, haskeller!"
 
+  toSamples =
+    [ ("If you use ?capital=true", Greet "HELLO, HASKELLER")
+    , ("If you use ?capital=false", Greet "Hello, haskeller")
+    ]
+
 -- API specification
 type TestApi =
        -- GET /hello/:name?capital={true, false}  returns a Greet as JSON

example/greet.md

@@ -1,4 +1,3 @@
-
 POST /greet
 -----------
 
@@ -13,11 +12,19 @@ POST /greet
 **Response**: 
 
  - Status code 201
- - Response body as below.
+ - If you use ?capital=true
 
 ``` javascript
 {
-    "msg": "Hello, haskeller!"
+    "msg": "HELLO, HASKELLER"
+}
+```
+
+ - If you use ?capital=false
+
+``` javascript
+{
+    "msg": "Hello, haskeller"
 }
 ```
 
@@ -38,11 +45,19 @@ GET /hello/:name
 **Response**: 
 
  - Status code 200
- - Response body as below.
+ - If you use ?capital=true
 
 ``` javascript
 {
-    "msg": "Hello, haskeller!"
+    "msg": "HELLO, HASKELLER"
+}
+```
+
+ - If you use ?capital=false
+
+``` javascript
+{
+    "msg": "Hello, haskeller"
 }
 ```