Merge pull request #377 from BethAr/patch-1
Update sample.hs -> handler-webkit
commit7444b20a5e1591509e567f57803ef402e53632b5
authorMichael Snoyman <michael@snoyman.com>
dateMon 25 May 2015, 09:23 (11 years ago)
parent3baad2c4e41b5e
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>"