main = do
  app <- scottyApp $ do
    post "/" $ do
      ps <- params
      -- liftIO $ print ps
      b <- body
      -- liftIO $ print b
      let r = encode ps
      
      raw r

  run 3011 $ app
main = do
  app <- scottyApp $ do
    post "/" $ do
      ps <- params
      -- liftIO $ print ps
      b <- body
      -- liftIO $ print b
      let r = encode ps
      
      raw r

  run 3011 $ app
main = do
  app <- scottyApp $ do
    post "/" $ do
      ps <- params
      -- liftIO $ print ps
      b <- body
      -- liftIO $ print b
      let r = encode ps
      
      raw r

  run 3011 $ app