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

Use string conversions in example

Browse source
This commit is contained in:
Thomas Sutton 2015-02-19 13:03:38 +11:00
parent 508b9f9791
commit 3451dcf186
1 changed files with 3 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
example/greet.hs
View file

@ -8,9 +8,8 @@
import Data.Aeson import Data.Aeson
import Data.Aeson.Encode.Pretty (encodePretty) import Data.Aeson.Encode.Pretty (encodePretty)
import Data.Proxy import Data.Proxy
import Data.String.Conversions
import Data.Text (Text) import Data.Text (Text)
import qualified Data.Text.Lazy as T
import qualified Data.Text.Lazy.Encoding as T
import GHC.Generics import GHC.Generics
import Servant.API import Servant.API
import Servant.API.ContentTypes import Servant.API.ContentTypes
@ -26,12 +25,10 @@ instance FromJSON Greet
instance ToJSON Greet instance ToJSON Greet
instance MimeRender JSON Greet where instance MimeRender JSON Greet where
toByteString Proxy v = encodePretty v toByteString Proxy = encodePretty
instance MimeRender HTML Greet where instance MimeRender HTML Greet where
toByteString Proxy (Greet s) = "<h1>" <> (c s) <> "</h1>" toByteString Proxy (Greet s) = "<h1>" <> cs s <> "</h1>"
where
c = T.encodeUtf8 . T.fromStrict
-- We add some useful annotations to our captures, -- We add some useful annotations to our captures,
-- query parameters and request body to make the docs -- query parameters and request body to make the docs