AGH Informatyka (sem 10) :: Zaawansowane Techniki Integracji Systemów :: Laboratoria 1

gistfile1.hs

{-# LANGUAGE OverloadedStrings, DeriveGeneric #-}
import Web.Scotty
import Data.Aeson
import GHC.Generics

data Stuff = Stuff   { dt  :: Things
                     } deriving (Show, Generic)
instance FromJSON Stuff
instance ToJSON Stuff
data Things = Things { id  :: Int
                     , tp  :: String
                     , msg :: String
                     } deriving (Show, Generic)
instance FromJSON Things
instance ToJSON Things


main :: IO ()
main = scotty 3000 $ do
    post "/" $ do
        bd <- body
        case decode bd of
            Nothing             -> html "LOL NOPE! <strong>objection!</strong>"
            Just (Stuff things) -> raw $ encode (Stuff things { tp = "response" })

Dla porównania — analogiczny program w Pythonie.

import json
from bottle import post, route, run, template, BaseRequest, request

@post('/')
def index():
    xxx = json.loads(request.body.read().decode("utf-8"))
    xxx["data"]["type"] = "response"
    return json.dumps(xxx)

run(host='localhost', port=8080)

Ciężko pokonać bottle.py pod względem rozmiaru kodu w tym przykładzie, niemniej na usprawiedliwienie Haskella: dodatkowo weryfikuje protokół wejściowy i wyjściowy!