Làm thế nào để tránh chuyển đổi giữa các loại 'chuỗi' khác nhau trong haskell, sử dụng snapframework?

Question

Tôi muốn tạo kết quả đã giải mã cho dữ liệu POST. Nhiều mã được 'lãng phí' trong việc chuyển đổi 'chuỗi'. Điều đó làm cho mã xấu xí. Bất kỳ giải pháp tốt hơn?

import   Codec.Binary.Url (decode') 
import qualified Data.ByteString.Lazy.Char8 as L (unpack) 
import qualified Data.ByteString.Char8 as S (unpack, pack) 
import qualified Data.ByteString.Lazy as LBS (pack) 

decodeUrlHandler :: Snap() 
decodeUrlHandler = do 
    body <- readRequestBody (maxBound :: Int64) 
    writeLBS $ LBS.pack $ map (fromMaybe 0) $ decode' $ L.unpack body 

Mã của bạn cho mục đích này là gì?

Answer 1

Chụp tự động giải mã yêu cầu và cung cấp cho bạn thông qua loại dữ liệu Request. Nó cung cấp các chức năng getRequest và withRequest để truy xuất yêu cầu và một số chức năng truy cập khác để nhận các phần khác nhau.

Ngoài ra còn có các chức năng tiện lợi cho các hoạt động phổ biến. Để nhận thông số POST hoặc GET, hãy xem getParam.

Snap mang đến cho bạn như một ByteString vì API này nằm ở mức trừu tượng khá thấp, cho phép người dùng xử lý những thứ như mã hóa văn bản. Tôi khuyên bạn nên sử dụng kiểu Văn bản hiệu quả hơn thay vì String. Lớp loại Readable cũng cung cấp một cơ chế để loại bỏ một số bản mẫu của các chuyển đổi này. Các trường hợp mặc định cho các số và Văn bản giả sử mã hóa UTF8.