Update sample.hs
I believe return was incorrect, it produced a type error:
```haskell
Couldn't match type `WAI.Response' with `IO WAI.ResponseReceived'
Expected type: (WAI.Response -> IO WAI.ResponseReceived)
-> IO WAI.ResponseReceived
Actual type: (WAI.Response -> IO WAI.ResponseReceived)
-> WAI.Response
```
commit4e41b5e0d1f81fa6c30d38a89631cab6499fc7a3
authorBethAr <beth.arronaz@yahoo.es>
dateSun 24 May 2015, 18:14 (11 years ago)
parent3baad2c
wai-handler-webkit/sample.hs+1−1
@@ -7,4 +7,4 @@ main :: IO ()
77main = run "Sample App" app
88
99app :: Application
10−app _ = return $ responseLBS status200 [("Content-Type", "text/html")] "<h1>Hello World!</h1>"
10+app _ response = response $ responseLBS status200 [("Content-Type", "text/html")] "<h1>Hello World!</h1>"