安装 Obelisk-OAuth

Question

我正在尝试将 Obelisk-OAuth 添加到我的项目中：https://github.com/obsidiansystems/obelisk-oauth

这条指令让我卡住了：

Your backend route encoder should handle this case:
  ...
  pathComponentEncoder $ \case
    BackendRoute_OAuth -> PathSegment "oauth" oauthRouteEncoder
  ...

我在方尖碑项目中看到的唯一相似之处是：

backend :: Backend BackendRoute FrontendRoute
backend = Backend
  { _backend_run = \serve -> serve $ const $ return ()
  , _backend_routeEncoder = fullRouteEncoder
  }

来自 Backend.hs.

但这似乎不是正确的位置。

有人遇到过这种情况吗？我在哪里插入 pathComponentEncoder $ \case 表达式？

Answer 1

fullRouteEncoder 在 common/src/Common/Route.hs 中定义。

所有路由都定义在"common"包中（前后端共享）。这是您要注入 oauth 路由的地方。你上面引用的文件是Backend.hs，它使用fullRouteEncoder定义在common.

安装 Obelisk-OAuth

Installing Obelisk-OAuth

haskell

reflex

obelisk