¿Cómo crear JSON Rest API con Happstack? Cuerpo JSON?

Question

Estoy tratando de crear una api JSON REST usando Happstack. Debe permitir POSTS con un cuerpo JSON. ¿Cómo puedo hacer esto? Todas las funciones en la API de happstack parecen buscar cosas en función del nombre del parámetro. Cree que el cuerpo siempre está codificado en url.

Si no es posible con Happstack, ¿qué marco debo usar?

Answer 1

Bien, esto es lo que descubrí.

{-# 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.