summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorfozworth <>2015-04-11 14:36:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2015-04-11 14:36:00 (GMT)
commiteb6a85477e3c07b3435be2393188028381370926 (patch)
treed0e6fc80b66a8f6cdaa9f003695839fe9490a945
parent517533512b1c0f05435d46bbd7df25903e258e74 (diff)
version 1.0.01.0.0
-rw-r--r--CHANGELOG.md4
-rw-r--r--README.md2
-rw-r--r--blunt.cabal2
-rw-r--r--library/Blunt.hs9
4 files changed, 9 insertions, 8 deletions
diff --git a/CHANGELOG.md b/CHANGELOG.md
index ae0320c..54a7c70 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,9 @@
# Change log
+## v1.0.0 (2015-04-11)
+
+- Removed input from WebSocket response.
+
## v0.0.17 (2015-04-11)
- Added dependency on Hackage version of pointfree package.
diff --git a/README.md b/README.md
index d3f2531..359c9d3 100644
--- a/README.md
+++ b/README.md
@@ -24,7 +24,7 @@ the `pointfree` and `pointful` executables. Instead, use the hosted version:
``` sh
$ cabal update
-$ cabal install 'blunt ==0.0.*'
+$ cabal install 'blunt ==1.*'
```
## Use
diff --git a/blunt.cabal b/blunt.cabal
index c1a7e27..461dcfd 100644
--- a/blunt.cabal
+++ b/blunt.cabal
@@ -1,5 +1,5 @@
name: blunt
-version: 0.0.17
+version: 1.0.0
cabal-version: >=1.10
build-type: Simple
license: MIT
diff --git a/library/Blunt.hs b/library/Blunt.hs
index 2095d01..769363d 100644
--- a/library/Blunt.hs
+++ b/library/Blunt.hs
@@ -51,8 +51,7 @@ convert message = do
pf <- safePointfree input
let pl = safePointful input
return Conversion
- { conversionInput = input
- , conversionPointfree = pf
+ { conversionPointfree = pf
, conversionPointful = pl
}
@@ -72,14 +71,12 @@ safePointful input =
else Just output
data Conversion = Conversion
- { conversionInput :: String
- , conversionPointfree :: [String]
+ { conversionPointfree :: [String]
, conversionPointful :: Maybe String
} deriving (Read, Show)
instance ToJSON Conversion where
toJSON result = object
- [ "input" .= conversionInput result
- , "pointfree" .= conversionPointfree result
+ [ "pointfree" .= conversionPointfree result
, "pointful" .= conversionPointful result
]