on master help sign in
Merge pull request #180 from haskell-servant/freezeboy/js-small-fix

Fix GenerateList to let the API be nested

commit38eb1992432747f5044793d2ad6becaba9d8ae1e authorJulian Arni <jkarni@gmail.com> dateThu 6 Aug 2015, 09:05 (11 years ago) parent217f9e9b769ddc
1 file changed+2−2
servant-js/src/Servant/JS.hs+2−2
servant-js/src/Servant/JS.hs+2−2
@@ -156,8 +156,8 @@ class GenerateList reqs where
156156instance GenerateList AjaxReq where
157157 generateList r = [r]
158158
159−instance GenerateList rest => GenerateList (AjaxReq :<|> rest) where
160− generateList (r :<|> rest) = r : generateList rest
159+instance (GenerateList start, GenerateList rest) => GenerateList (start :<|> rest) where
160+ generateList (start :<|> rest) = (generateList start) ++ (generateList rest)
161161
162162-- | Generate the necessary data for JS codegen as a list, each 'AjaxReq'
163163-- describing one endpoint from your API type.