2014-08-09 22:23:41 +02:00
|
|
|
[https-everywhere-rules](https://github.com/fmap/https-everywhere-rules)
|
|
|
|
========================================================================
|
|
|
|
|
2014-08-24 06:57:50 +02:00
|
|
|
Haskell package providing high-level access to [HTTPS Everywhere][1]
|
2014-08-24 19:48:04 +02:00
|
|
|
rulesets. It aims to make it easier to specify: "use secure HTTP
|
|
|
|
connections when possible."
|
2014-08-24 06:57:50 +02:00
|
|
|
|
2014-08-24 08:06:22 +02:00
|
|
|
[1]: https://www.eff.org/https-everywhere
|
|
|
|
|
2014-08-24 06:57:50 +02:00
|
|
|
```haskell
|
|
|
|
λ: :m + Data.HTTPSEverywhere.Rules Network.URI
|
2017-12-11 04:29:19 +01:00
|
|
|
λ: rules <- getRulesets
|
|
|
|
λ: let Just it = parseURI "http://httpsnow.org"
|
|
|
|
λ: rewriteURL rules it
|
2017-12-11 05:52:40 +01:00
|
|
|
Just https://httpsnow.org
|
2014-08-24 06:57:50 +02:00
|
|
|
```
|