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

Merge pull request #180 from haskell-servant/freezeboy/js-small-fix

Browse source 
Fix GenerateList to let the API be nested
This commit is contained in:
Julian Arni 2015-08-06 09:05:23 +02:00
commit 38eb199243
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-js/src/Servant/JS.hs
View file

@ -156,8 +156,8 @@ class GenerateList reqs where
instance GenerateList AjaxReq where instance GenerateList AjaxReq where
generateList r = [r] generateList r = [r]
instance GenerateList rest => GenerateList (AjaxReq :<|> rest) where instance (GenerateList start, GenerateList rest) => GenerateList (start :<|> rest) where
generateList (r :<|> rest) = r : generateList rest generateList (start :<|> rest) = (generateList start) ++ (generateList rest)
-- | Generate the necessary data for JS codegen as a list, each 'AjaxReq' -- | Generate the necessary data for JS codegen as a list, each 'AjaxReq'
-- describing one endpoint from your API type. -- describing one endpoint from your API type.