Làm thế nào để tạo JSON Rest API với Happstack? Cơ thể JSON?

Question

Tôi đang cố gắng tạo một API REST RESTI bằng cách sử dụng Happstack. Nó sẽ cho phép POSTS với một cơ thể JSON. Tôi có thể làm cái này như thế nào? Tất cả các chức năng trong API của happstack dường như nhìn mọi thứ dựa trên tên tham số. Nó nghĩ cơ thể luôn được mã hóa url.

Nếu không thể xảy ra với Happstack, tôi nên sử dụng framework nào?

Answer 1

Được rồi, đây là những gì tôi đã tìm ra.

{-# LANGUAGE OverloadedStrings, DeriveDataTypeable #-} 
import qualified Data.ByteString.Lazy.Char8 as L 
import Happstack.Server 
import Happstack.Server.Types 
import Control.Monad.IO.Class (liftIO) 

import Data.Data (Data, Typeable) 

-- easiest to serialize/deserialize objects 
data Unit = Unit { x :: Int, y :: Int } deriving (Show, Eq, Data, Typeable) 

-- put this function in a library somewhere 
getBody :: ServerPart L.ByteString 
getBody = do 
    req <- askRq 
    body <- liftIO $ takeRequestBody req 
    case body of 
     Just rqbody -> return . unBody $ rqbody 
     Nothing  -> return "" 

myRoute :: ServerPart Response 
myRoute = do 
    body <- getBody -- it's a ByteString 
    let unit = fromJust $ A.decode body :: Unit -- how to parse json 
    ok $ toResponse $ A.encode unit -- how to send json back.