haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Some user-facing TLS info (pinging @chrisdone @DanBurton)

Browse Source
This commit is contained in:
Michael Snoyman 2015-03-31 09:30:53 +03:00
parent c430bf4a91
commit c2e836bf3a
3 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
yesod-bin/ChangeLog.md
View File

@ -1,3 +1,7 @@
## 1.4.6
* Add TLS support to `yesod devel` [#964](https://github.com/yesodweb/yesod/pull/964)
## 1.4.5 ## 1.4.5
* add a switch to yesod to skip deploying a .keter with copy-to [#952](https://github.com/yesodweb/yesod/issues/952) * add a switch to yesod to skip deploying a .keter with copy-to [#952](https://github.com/yesodweb/yesod/issues/952)

6
yesod-bin/Devel.hs
View File

@ -183,6 +183,12 @@ reverseProxy opts iappPort = do
runTLS tlsSettings (setPort port defaultSettings) app runTLS tlsSettings (setPort port defaultSettings) app
httpProxy = run (develPort opts) proxyApp httpProxy = run (develPort opts) proxyApp
httpsProxy = runProxyTls (develTlsPort opts) proxyApp httpsProxy = runProxyTls (develTlsPort opts) proxyApp
putStrLn "Application can be accessed at:\n"
putStrLn $ "http://127.0.0.1:" ++ show (develPort opts)
putStrLn $ "https://127.0.0.1:" ++ show (develTlsPort opts)
putStrLn $ "If you wish to test https capabilities, you should set the following variable:"
putStrLn $ " export APPROOT=https://127.0.0.1:" ++ show (develTlsPort opts)
putStrLn ""
loop (race_ httpProxy httpsProxy) `Ex.onException` exitFailure loop (race_ httpProxy httpsProxy) `Ex.onException` exitFailure
where where
loop proxies = forever $ do loop proxies = forever $ do

2
yesod-bin/yesod-bin.cabal
View File

@ -1,5 +1,5 @@
name: yesod-bin name: yesod-bin
version: 1.4.5.1 version: 1.4.6
license: MIT license: MIT
license-file: LICENSE license-file: LICENSE
author: Michael Snoyman <michael@snoyman.com> author: Michael Snoyman <michael@snoyman.com>