From af1b2677263428520542aa82dca167f0647d418a Mon Sep 17 00:00:00 2001 From: Catherine Galkina Date: Tue, 17 Jan 2017 16:34:30 +0300 Subject: [PATCH] Fix servant-client tests after rebase --- servant-client/test/Servant/ClientSpec.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/servant-client/test/Servant/ClientSpec.hs b/servant-client/test/Servant/ClientSpec.hs index eab39280..0de8cb8f 100644 --- a/servant-client/test/Servant/ClientSpec.hs +++ b/servant-client/test/Servant/ClientSpec.hs @@ -264,12 +264,12 @@ genericClientServer :: Application genericClientServer = serve (Proxy :: Proxy GenericClientAPI) ( (\ mx -> case mx of Just x -> return (x*x) - Nothing -> throwE $ ServantErr 400 "missing parameter" "" [] + Nothing -> throwError $ ServantErr 400 "missing parameter" "" [] ) :<|> nestedServer1 ) where - nestedServer1 _str = nestedServer2 :<|> (maybe (throwE $ ServantErr 400 "missing parameter" "" []) return) + nestedServer1 _str = nestedServer2 :<|> (maybe (throwError $ ServantErr 400 "missing parameter" "" []) return) nestedServer2 _int = (\ x y -> return (x + y)) :<|> return () {-# NOINLINE manager #-}