git.iko.soy/servant
on master help sign in
Fix servant-client tests after rebase
af1b267Catherine Galkina
servant-client/test/Servant/ClientSpec.hs+2−2
compare with master
unifiedsplit
@@ -264,12 +264,12 @@ genericClientServer :: Application
264genericClientServer = serve (Proxy :: Proxy GenericClientAPI) (
264genericClientServer = serve (Proxy :: Proxy GenericClientAPI) (
265 (\ mx -> case mx of
265 (\ mx -> case mx of
266 Just x -> return (x*x)
266 Just x -> return (x*x)
267− Nothing -> throwE $ ServantErr 400 "missing parameter" "" []
267+ Nothing -> throwError $ ServantErr 400 "missing parameter" "" []
268 )
268 )
269 :<|> nestedServer1
269 :<|> nestedServer1
270 )
270 )
271 where
271 where
272− nestedServer1 _str = nestedServer2 :<|> (maybe (throwE $ ServantErr 400 "missing parameter" "" []) return)
272+ nestedServer1 _str = nestedServer2 :<|> (maybe (throwError $ ServantErr 400 "missing parameter" "" []) return)
273 nestedServer2 _int = (\ x y -> return (x + y)) :<|> return ()
273 nestedServer2 _int = (\ x y -> return (x + y)) :<|> return ()
274
274
275{-# NOINLINE manager #-}
275{-# NOINLINE manager #-}