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