हैप्स्टैक के साथ JSON Rest API कैसे बनाएं? जेएसओएन बॉडी?

Question

मैं हैप्स्टैक का उपयोग कर जेएसओएन रीस्ट एपीआई बनाने की कोशिश कर रहा हूं। इसे एक JSON शरीर के साथ POSTS की अनुमति देनी चाहिए। मैं यह कैसे कर सकता हूँ? Happstack के एपीआई में सभी कार्यों पैरामीटर नाम के आधार पर चीजों को देखने लगते हैं। ऐसा लगता है कि शरीर हमेशा यूआरएल-एन्कोडेड होता है।

यदि हैप्स्टैक के साथ यह संभव नहीं है, तो मुझे किस ढांचे का उपयोग करना चाहिए?

Answer 1

ठीक है, यहां मैंने जो कुछ पता लगाया है।

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