3

每当我在我的网站中使用表单时，我都需要将“操作”属性传递给它（我不想将其留空，因为我更喜欢验证标记）。现在它看起来像这样：

registerPage = dir "test" $ do
    nullDir
    let action = "/test" :: String
    let mkForm = form action
    let prefix = "register"
    eForm <- happstackEitherForm mkForm prefix registerForm

对于操作与它们所在的页面相同的表单，我不喜欢像现在这样写两次 URL。有没有办法获取“当前网址”？

registerPage = dir "test" $ do
    nullDir
    action <- {- ... -}

到目前为止，我最好的选择是将动作转换为显式参数/变量

registerUrl :: String
registerUrl = "register"

registerPage = dir registerUrl $ do
    nullDir
    let action = "/" ++ registerUrl

但如果我这样做，那么我将有一个额外的参数，我需要命名并传递给我的函数。我也认为需要这样做"/" ++有点难看。

4

2 回答 2

1

现在我想到了，我认为我真正需要的是当前的 URL，它是由用户发送的，而与我使用的路由过滤器无关。这将保留可变路径段和查询字符串参数。

为此，我可以通过和获取当前Request通过并askRq从中获取 URLrqUrirqQuery

rq <- askRq
let action = (rqUri rq) ++ (rqQuery rq)
于 2014-01-04T16:59:04.377 回答
0

你想要这个吗：

import Control.Monad (MonadPlus)
import Happstack.Server.SimpleHTTP (dir, ServerMonad)

dir' :: (MonadPlus m, ServerMonad m) => String -> (String -> m a) -> m a
dir' path handler = dir path (handler ("/" ++ path))

registerPage = dir' "test" $ \action -> do
    nullDir
    ... use action ...

我不知道dir'Happstack 中是否已经存在。

于 2014-01-04T16:16:22.630 回答