@@ -23,6 +23,7 @@ import Network.Wai
2323import Servant.API
2424import Servant.Docs
2525import Servant.Server
26+import Web.FormUrlEncoded(FromForm(..), ToForm(..))
2627```
2728
2829And 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
218219 :<|> "hello" :> QueryParam "name" String :> Get '[JSON] HelloMessage
219220 :<|> "marketing" :> ReqBody '[JSON, FormUrlEncoded] ClientInfo :> Post '[JSON] Email
220221
222+instance ToForm ClientInfo
223+instance FromForm ClientInfo
224+
221225exampleAPI2 :: Proxy ExampleAPI2
222226exampleAPI2 = Proxy
223227