srv = serverWith config process
  where process _ url request = case rqMethod request of
          POST → (return ∘ sendJSON OK ∘ toSwift ∘ decodeString ∘ rqBody) request
          otherwise → return $ sendJSON BadRequest "[\"Ｃ:。ミ\"]"

sendJSON ∷ Statu
srv = serverWith config process
  where process _ url request = case rqMethod request of
          POST → (return ∘ sendJSON OK ∘ toSwift ∘ decodeString ∘ rqBody) request
          otherwise → return $ sendJSON BadRequest "[\"Ｃ:。ミ\"]"
srv = serverWith config process
  where process _ url request = case rqMethod request of
          POST → (return ∘ sendJSON OK ∘ toSwift ∘ decodeString ∘ rqBody) request
          otherwise → return $ sendJSON BadRequest "[\"Ｃ:。ミ\"]"