Yesod: Sử dụng typesafe URL trong AJAX gọi

Question

Trong dự án Yesod của tôi có các tuyến đường sau:

/api/hide/thread/#Text/#Int  ApiHideThreadR GET 

Tôi muốn yêu cầu nó về phía khách hàng với javascript:

function hideThreadCompletely(threadId, board) { 
    $.getJSON("/api/hide/thread/"+board+"/"+threadId, function(data) { 
     $('#thread-'+threadId).hide(); 
    }); 
} 

Nhưng tôi có thể Không sử dụng @{ApiHideTHreadR} vì Yesod yêu cầu đối số của nó trên thời gian biên dịch. Giải pháp thích hợp cho việc này là gì, nếu tôi muốn URL API trông giống như api/board/1/1 và không phải là api/board?bid=1&tid=1? Tiếp tục sử dụng URL được định nghĩa theo cách thủ công như "/api/hide/thread/"+board+"/"+threadId?

Answer 1

Sau một số tìm kiếm, tôi tìm thấy số discussion này, trong đó đề nghị bạn thêm url làm thuộc tính "url dữ liệu" cho một phần tử nào đó. Và sau đó tải url từ phần tử. Something như thế này:

<div id="thread-1" data-hide-url=@{ApiHideTHreadR}> 

var url = $("#thread-1").data("hide-url") 

Answer 2

Những gì tôi luôn luôn làm là để loại bỏ các tham số đi qua rõ ràng trong các cuộc gọi đường và thay vào đó thay thế nó bằng:

getApiHideThreadR::Handler JSON 
getApiHideThreadR = do 
    rawTextParam <- lookupGetParam "text" 
    rawThreadId <- lookupGetParam "table" 
    (textParam,threadParam) <- someParseFunction rawTextParam rawThreadId 
    ... 

Sau đó, bạn có thể sử dụng phong cách ajax thường xuyên:

$.getJSON("@{ApiHideThreadR}",{text:"sometext",tabe:"sometable"},success()... 

Đối get phức tạp hơn để Haskell yêu cầu loại: https://github.com/yesodweb/yesod/wiki/Convert-get-params-into-a-haskell-record

Là mẫu đẹp.

Answer 3

Bạn không thể sử dụng một tuyến đường kiểu an để kiểm tra tại thời gian biên dịch somthing rằng chỉ được biết đến tại thời gian chạy. Tôi nghi ngờ bạn biết điều này quá, nhưng đó là cảm giác duy nhất tôi có thể làm cho câu hỏi của bạn. Do đó, tùy chọn duy nhất của bạn là làm theo cách thủ công.