@@ -264,12 +264,12 @@ genericClientServer :: Application
264264genericClientServer = serve (Proxy :: Proxy GenericClientAPI) (
265265 (\ mx -> case mx of
266266 Just x -> return (x*x)
267− Nothing -> throwE $ ServantErr 400 "missing parameter" "" []
267+ Nothing -> throwError $ ServantErr 400 "missing parameter" "" []
268268 )
269269 :<|> nestedServer1
270270 )
271271 where
272− nestedServer1 _str = nestedServer2 :<|> (maybe (throwE $ ServantErr 400 "missing parameter" "" []) return)
272+ nestedServer1 _str = nestedServer2 :<|> (maybe (throwError $ ServantErr 400 "missing parameter" "" []) return)
273273 nestedServer2 _int = (\ x y -> return (x + y)) :<|> return ()
274274
275275{-# NOINLINE manager #-}