git.iko.soy/typeable/servant
on master help sign in
Fix GenerateList to let the API be nested
b769ddcFreezeboy
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.