blunt 1.0.0 → 1.0.1
raw patch · 5 files changed
+23/−10 lines, 5 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- CHANGELOG.md +5/−0
- README.md +5/−3
- blunt.cabal +6/−3
- library/Blunt.hs +6/−3
- library/Blunt/Markup.hs +1/−1
CHANGELOG.md view
@@ -1,5 +1,10 @@ # Change log +## v1.0.1 (2015-04-14)++- Fixed HTML entities.+- Improved SEO.+ ## v1.0.0 (2015-04-11) - Removed input from WebSocket response.
README.md view
@@ -9,8 +9,8 @@ </p> <p align="center">- <a href="https://hackage.haskell.org/package/blunt"><img alt="Version" src="https://img.shields.io/hackage/v/blunt.svg?label=version&style=flat-square"></a>- <a href="http://packdeps.haskellers.com/feed?needle=blunt"><img alt="Dependencies" src="https://img.shields.io/hackage-deps/v/blunt.svg?label=dependencies&style=flat-square"></a>+ <a href="https://hackage.haskell.org/package/blunt"><img alt="Version" src="https://img.shields.io/hackage/v/blunt.svg?label=version&style=flat-square"></a>+ <a href="http://packdeps.haskellers.com/feed?needle=blunt"><img alt="Dependencies" src="https://img.shields.io/hackage-deps/v/blunt.svg?label=dependencies&style=flat-square"></a> </p> <hr>@@ -45,7 +45,9 @@ $ cabal sandbox init $ cabal install happy-$ cabal install+$ cabal install --only-dependencies+$ cabal run+# http://localhost:8080 ``` ## Deploy
blunt.cabal view
@@ -1,5 +1,5 @@ name: blunt-version: 1.0.0+version: 1.0.1 cabal-version: >=1.10 build-type: Simple license: MIT@@ -7,9 +7,12 @@ maintainer: Taylor Fausak <taylor@fausak.me> homepage: https://blunt.herokuapp.com bug-reports: https://github.com/tfausak/blunt/issues-synopsis: Point-free Haskell as a service.+synopsis: Convert between pointfree and pointful expressions. description:- <https://github.com/tfausak/blunt>+ Blunt is a web front end to the pointfree and pointful libraries. While you+ can install and run it locally, there's no real reason to prefer it over+ the @pointfree@ and @pointful@ executables. Instead, use the hosted+ version: <https://blunt.herokuapp.com>. category: Web extra-source-files: CHANGELOG.md
library/Blunt.hs view
@@ -31,14 +31,17 @@ ws pending = do connection <- acceptRequest pending forkPingThread connection 30- forever <| do+ forever (app connection)+ where+ app connection = do message <- receiveData connection result <- convert message sendTextData connection (encode result) http :: Application-http = logStdout .> gzip def <| \ request respond ->- respond <| case (requestMethod request, pathInfo request) of+http = (\ request -> apply (app request)) |> logStdout .> gzip def+ where+ app request = case (requestMethod request, pathInfo request) of ("GET", []) -> responseLBS status headers body where status = ok200 headers = [("Content-Type", "text/html; charset=utf-8")]
library/Blunt/Markup.hs view
@@ -20,7 +20,7 @@ , content_ "initial-scale = 1, maximum-scale = 1, minimum-scale = 1, width = device-width" ] - title_ "Blunt"+ title_ "Blunt \183 Online Haskell pointfree converter" style_ [] style