on master help sign in
Fix typos
d996501Brian Wignall
wai-app-static/Network/Wai/Application/Static.hs+1−1
@@ -167,7 +167,7 @@ serveFile StaticSettings {..} req file
167 -- Note: It would be arguably better to next check
167 -- Note: It would be arguably better to next check
168 -- if-modified-since and return a 304 if that indicates a match as
168 -- if-modified-since and return a 304 if that indicates a match as
169 -- well. However, the circumstances under which such a situation
169 -- well. However, the circumstances under which such a situation
170− -- could arise would be very anomolous, and should likely warrant a
170+ -- could arise would be very anomalous, and should likely warrant a
171 -- new file being sent anyway.
171 -- new file being sent anyway.
172 (Just hash, _) -> respond [("ETag", hash)]
172 (Just hash, _) -> respond [("ETag", hash)]
173
173
wai-app-static/test/WaiAppStaticTest.hs+1−1
@@ -57,7 +57,7 @@ spec = do
57 assertStatus 200 =<<
57 assertStatus 200 =<<
58 request (setRawPathInfo defRequest path)
58 request (setRawPathInfo defRequest path)
59
59
60− it "404 for non-existant files" $ webApp $
60+ it "404 for non-existent files" $ webApp $
61 assertStatus 404 =<<
61 assertStatus 404 =<<
62 request (setRawPathInfo defRequest "doesNotExist")
62 request (setRawPathInfo defRequest "doesNotExist")
63
63
wai-extra/Network/Wai/EventSource/EventStream.hs+1−1
@@ -1,5 +1,5 @@
1{-# LANGUAGE CPP #-}
1{-# LANGUAGE CPP #-}
2−{- code adapted by Mathias Billman originaly from Chris Smith https://github.com/cdsmith/gloss-web -}
2+{- code adapted by Mathias Billman originally from Chris Smith https://github.com/cdsmith/gloss-web -}
3
3
4{-|
4{-|
5 Internal module, usually you don't need to use it.
5 Internal module, usually you don't need to use it.
wai-websockets/server.lhs+1−1
@@ -101,7 +101,7 @@ stays alive on some browsers.
101> conn <- WS.acceptRequest pending
101> conn <- WS.acceptRequest pending
102> WS.forkPingThread conn 30
102> WS.forkPingThread conn 30
103
103
104−When a client is succesfully connected, we read the first message. This should
104+When a client is successfully connected, we read the first message. This should
105be in the format of "Hi! I am Jasper", where Jasper is the requested username.
105be in the format of "Hi! I am Jasper", where Jasper is the requested username.
106
106
107> msg <- WS.receiveData conn
107> msg <- WS.receiveData conn
warp/Network/Wai/Handler/Warp.hs+1−1
@@ -378,7 +378,7 @@ setProxyProtocolRequired y = y { settingsProxyProtocol = ProxyProtocolRequired }
378--
378--
379-- WARNING: This is contrary to the PROXY protocol specification and
379-- WARNING: This is contrary to the PROXY protocol specification and
380-- using it can indicate a security problem with your
380-- using it can indicate a security problem with your
381−-- architecture if the web server is directly accessable
381+-- architecture if the web server is directly accessible
382-- to the public, since it would allow easy IP address
382-- to the public, since it would allow easy IP address
383-- spoofing. However, it can be useful in some cases,
383-- spoofing. However, it can be useful in some cases,
384-- such as if a load balancer health check uses regular
384-- such as if a load balancer health check uses regular
warp/test/ResponseSpec.hs+1−1
@@ -83,7 +83,7 @@ spec = do
83 it "discards empty lines" $ do
83 it "discards empty lines" $ do
84 sanitizeHeaderValue "foo\r\n\r\nbar" `shouldBe` "foo\r\n bar"
84 sanitizeHeaderValue "foo\r\n\r\nbar" `shouldBe` "foo\r\n bar"
85
85
86− context "when sanitizing single occurences of \n" $ do
86+ context "when sanitizing single occurrences of \n" $ do
87 it "replaces \n with \r\n" $ do
87 it "replaces \n with \r\n" $ do
88 sanitizeHeaderValue "foo\n bar" `shouldBe` "foo\r\n bar"
88 sanitizeHeaderValue "foo\n bar" `shouldBe` "foo\r\n bar"
89
89