git.iko.soy/typeable/wai
on master help sign in
Version bump (fixes #506)
commit049a3bb94f8fa3b98c5a6615c9d1abd0a50a1da3 authorMichael Snoyman <michael@snoyman.com> dateTue 12 Jan 2016, 13:21 (11 years ago) parent85dc5e5
3 files changed+10−1
compare with master
unifiedsplit
wai-extra/ChangeLog.md+4 wai-extra/Network/Wai/Middleware/ForceDomain.hs+5 wai-extra/wai-extra.cabal+1−1
wai-extra/ChangeLog.md+4
@@ -1,3 +1,7 @@
1+## 3.0.14
2+
3+* Middleware to force domain names. [#506](https://github.com/yesodweb/wai/issues/506) [#507](https://github.com/yesodweb/wai/pull/507)
4+
15## 3.0.13.1
26
37* Support wai 3.2
wai-extra/Network/Wai/Middleware/ForceDomain.hs+5
@@ -1,3 +1,6 @@
1+-- |
2+--
3+-- @since 3.0.14
14module Network.Wai.Middleware.ForceDomain where
25
36import Data.ByteString (ByteString)
@@ -11,6 +14,8 @@ import Network.Wai.Request
1114-- | Force a domain by redirecting.
1215-- The `checkDomain` function takes the current domain and checks whether it is correct.
1316-- It should return `Nothing` if the domain is correct, or `Just "domain.com"` if it is incorrect.
17+--
18+-- @since 3.0.14
1419forceDomain :: (ByteString -> Maybe ByteString) -> Middleware
1520forceDomain checkDomain app req sendResponse =
1621 case requestHeaderHost req >>= checkDomain of
wai-extra/wai-extra.cabal+1−1
@@ -1,5 +1,5 @@
11Name: wai-extra
2−Version: 3.0.13.1
2+Version: 3.0.14
33Synopsis: Provides some basic WAI handlers and middleware.
44description:
55 Provides basic WAI handler and middleware functionality: