Make sure tutorial can build
This commit is contained in:
parent
dc40badb7c
commit
b3e35fbc79
2 changed files with 5 additions and 0 deletions
|
@ -23,6 +23,7 @@ import Network.Wai
|
||||||
import Servant.API
|
import Servant.API
|
||||||
import Servant.Docs
|
import Servant.Docs
|
||||||
import Servant.Server
|
import Servant.Server
|
||||||
|
import Web.FormUrlEncoded(FromForm(..), ToForm(..))
|
||||||
```
|
```
|
||||||
|
|
||||||
And we'll import some things from one of our earlier modules
|
And we'll import some things from one of our earlier modules
|
||||||
|
@ -218,6 +219,9 @@ type ExampleAPI2 = "position" :> Capture "x" Int :> Capture "y" Int :> Get '[JSO
|
||||||
:<|> "hello" :> QueryParam "name" String :> Get '[JSON] HelloMessage
|
:<|> "hello" :> QueryParam "name" String :> Get '[JSON] HelloMessage
|
||||||
:<|> "marketing" :> ReqBody '[JSON, FormUrlEncoded] ClientInfo :> Post '[JSON] Email
|
:<|> "marketing" :> ReqBody '[JSON, FormUrlEncoded] ClientInfo :> Post '[JSON] Email
|
||||||
|
|
||||||
|
instance ToForm ClientInfo
|
||||||
|
instance FromForm ClientInfo
|
||||||
|
|
||||||
exampleAPI2 :: Proxy ExampleAPI2
|
exampleAPI2 :: Proxy ExampleAPI2
|
||||||
exampleAPI2 = Proxy
|
exampleAPI2 = Proxy
|
||||||
|
|
||||||
|
|
|
@ -31,6 +31,7 @@ library
|
||||||
, servant-docs == 0.11.*
|
, servant-docs == 0.11.*
|
||||||
, servant-js >= 0.9 && <0.10
|
, servant-js >= 0.9 && <0.10
|
||||||
, warp
|
, warp
|
||||||
|
, http-api-data
|
||||||
, http-media
|
, http-media
|
||||||
, lucid
|
, lucid
|
||||||
, time
|
, time
|
||||||
|
|
Loading…
Reference in a new issue