eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Fix servant-client tests after rebase

Browse source
This commit is contained in:
Catherine Galkina 2017-01-17 16:34:30 +03:00
parent aa4b10c9ca
commit af1b267726
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
servant-client/test/Servant/ClientSpec.hs
View file

@ -264,12 +264,12 @@ genericClientServer :: Application
genericClientServer = serve (Proxy :: Proxy GenericClientAPI) ( genericClientServer = serve (Proxy :: Proxy GenericClientAPI) (
(\ mx -> case mx of (\ mx -> case mx of
Just x -> return (x*x) Just x -> return (x*x)
Nothing -> throwE $ ServantErr 400 "missing parameter" "" [] Nothing -> throwError $ ServantErr 400 "missing parameter" "" []
) )
:<|> nestedServer1 :<|> nestedServer1
) )
where 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 () nestedServer2 _int = (\ x y -> return (x + y)) :<|> return ()
{-# NOINLINE manager #-} {-# NOINLINE manager #-}