eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Cleanup.

Browse source
This commit is contained in:
Matthias Fischmann 2015-02-06 09:34:59 +01:00
parent 0edb828c1d
commit 3b48ca7d43
3 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
README.md
View file

@ -4,7 +4,7 @@
![servant](https://raw.githubusercontent.com/haskell-servant/servant/master/servant.png) ![servant](https://raw.githubusercontent.com/haskell-servant/servant/master/servant.png)
This library lets you derive automatically Haskell functions that let you query each endpoint of a *servant* webservice. This library lets you automatically derive Haskell functions that let you query each endpoint of a *servant* webservice.
## Example ## Example

2
src/Servant/Common/Req.hs
View file

@ -85,7 +85,7 @@ reqToRequest req (BaseUrl reqScheme reqHost reqPort) =
setheaders r = r { requestHeaders = Prelude.map toProperHeader (headers req) } setheaders r = r { requestHeaders = Prelude.map toProperHeader (headers req) }
toProperHeader (name, val) = toProperHeader (name, val) =
(fromString name, encodeUtf8 val) (fromString name, encodeUtf8 val)
-- * performing requests -- * performing requests

1
test/Servant/ClientSpec.hs
View file

@ -255,4 +255,3 @@ pathGen = fmap NonEmpty path
filter (not . (`elem` "?%[]/#;")) $ filter (not . (`elem` "?%[]/#;")) $
filter isPrint $ filter isPrint $
map chr [0..127] map chr [0..127]