git.iko.soy/servant
on master help sign in
Merge pull request #180 from haskell-servant/freezeboy/js-small-fix
38eb199Julian Arni
servant-js/src/Servant/JS.hs+2−2
compare with master
unifiedsplit
@@ -156,8 +156,8 @@ class GenerateList reqs where
156instance GenerateList AjaxReq where
156instance GenerateList AjaxReq where
157 generateList r = [r]
157 generateList r = [r]
158
158
159−instance GenerateList rest => GenerateList (AjaxReq :<|> rest) where
159+instance (GenerateList start, GenerateList rest) => GenerateList (start :<|> rest) where
160− generateList (r :<|> rest) = r : generateList rest
160+ generateList (start :<|> rest) = (generateList start) ++ (generateList rest)
161
161
162-- | Generate the necessary data for JS codegen as a list, each 'AjaxReq'
162-- | Generate the necessary data for JS codegen as a list, each 'AjaxReq'
163-- describing one endpoint from your API type.
163-- describing one endpoint from your API type.