Question

是否有一个haskell Web框架或方法可以使端到端api端点方法可被发现，而不必返回将新端点函数附加到main方法？

说明：

我正在评估haskell网络框架，我认为所有这些框架都有一个共同点，就是有一个地方可以定义你的端点。

意思是，每次创建新端点时，我都必须创建该函数，然后在main函数中输入端点。

我会举一些例子。

type Api = SpockM () () () ()

type ApiAction a = SpockAction () () () a

main :: IO ()
main = do
  spockCfg <- defaultSpockCfg () PCNoDatabase ()
  runSpock 8080 (spock spockCfg app)

app :: Api
app = do
  get "people" $ do
    json $ Person { name = "Fry", age = 25 }

对于新端点，我需要修改应用程序功能。

Servant

type UserAPI2 = "users" :> Get '[JSON] [User]
           :<|> "albert" :> Get '[JSON] User
           :<|> "isaac" :> Get '[JSON] User

isaac :: User
isaac = User "Isaac Newton" 372 "isaac@newton.co.uk" (fromGregorian 1683 3 1)

albert :: User
albert = User "Albert Einstein" 136 "ae@mc2.org" (fromGregorian 1905 12 1)

users2 :: [User]
users2 = [isaac, albert]

server2 :: Server UserAPI2
server2 = return users2
     :<|> return albert
     :<|> return isaac

对于每个新端点，我需要附加到server2函数。

Snap

appInit :: SnapletInit App App
appInit = makeSnaplet "myapp" "My example application" Nothing $ do
    hs <- nestSnaplet "heist" heist $ heistInit "templates"
    fs <- nestSnaplet "foo" foo $ fooInit
    bs <- nestSnaplet "" bar $ nameSnaplet "newname" $ barInit foo
    addRoutes [ ("hello", writeText "hello world")
              , ("fooname", with foo namePage)
              , ("barname", with bar namePage)
              , ("company", companyHandler)
              ]
    wrapSite (<|> heistServe)
    ref <- liftIO $ newIORef "fooCorp"
    return $ App hs fs bs ref

对于我想添加的每个新端点，我需要附加到addRoutes函数。

在我看到的所有这些示例和所有其他框架中，如果我想添加新端点，我总是必须返回主文件中的函数来添加新路由。

我希望会有一些东西，我可以在新文件中编写我的新端点函数，它将由Web框架发现，因此我不必继续添加到现有函数。

在.net Web Api中，这看起来像这样。

定义默认路由的一个地方。

routes.MapHttpRoute(
name: "API Default",
routeTemplate: "api/{controller}/{id}",
defaults: new { id = RouteParameter.Optional }
);

添加到项目中的新类和文件。框架会在运行时将此方法发现为端点并添加它。我不必回到主函数来附加这个端点。

[Route("api/books")]
[HttpPost]
public HttpResponseMessage CreateBook(Book book) { ... }

Answer 1

如果您使用的是the scaffolded site，那么您可以非常接近Yesod框架所期望的内容。流程将如下所示：

1）在路线文件中添加新路线

/myRoute MyRouteR GET

2）在Handler目录下的现有Handler模块中为它定义一个处理程序：

getMyRouteR :: Handler Html
getMyRouteR = return $(shamletFile "templates/myRoute.shamlet")

这就是流程的结束。

发现端点的Haskell Web框架？

1 个答案: