2

从更高的层次来看，我想做的是通过 javascript 发布一个包含对象 ID 的帖子。

我将“PlayerId”传递给一个小部件，该小部件将创建将发布的 jquery。

  tableClickHandlerWidget :: String -> TableId -> PlayerId -> Maybe Int ->  Widget
  tableClickHandlerWidget elemId tid playerId seatId = do
    let seatNumber = if seatId == Nothing
                      then "null"
                      else show  $ fromJust seatId
    let pid = fromPersistToJS $ unKey playerId
    toWidget[julius|
        $(function() {
          $('#{show elemId}').click.post(
            '@{GamingSessionsR}',
            { player: '#{pid}', table: '#{show tid}', seat:'#{seatNumber}' },
            );
        });
        |]
    toWidget[hamlet|something<br/>|]


  fromPersistToJS :: PersistValue -> String
  fromPersistToJS p = do
   let (a) = fromPersistValue p
   case a of
      Left  l -> T.unpack l
      Right  r -> r

我从 fromPersistToJS 得到的总是一个异常，即对象 id 不能被制作成字符串。

但是 URL 本质上是字符串，并且在其中包含 ID；所以我相信这一定是可能的。

https://github.com/gdoteof/exodus/是整个仓库，我正在发这篇文章

https://github.com/gdoteof/exodus/commit/4daa0a25a9f44c69cbdc5c0bb4e8aa4f6433de45

4

1 回答 1

4

答案很简单。

let playerIdAsText = toPathPiece playerId
于 2012-03-26T01:25:51.407 回答