0

我需要使用 Haskell 中的scotty web 框架创建一个 web 服务来在不同的货币之间进行转换。

Web 服务应响应获取请求，例如 /convert/15?to=usd&from=eur。

到目前为止我有这个代码：

{-# LANGUAGE OverloadedStrings #-}

import Web.Scotty
import Data.Monoid (mconcat)

functionxs :: a -> Int
functionxs a = 5

main = scotty 3000 $ do
  get "/:word" $ do
    name <- param "word"
    html $ mconcat ["<h1>Hi, ", name, " what's up!</h1>"]

因此，当您在浏览器中执行：http://localhost:3000/Tony 时，结果是：嗨，Tony，怎么了！

问题是我不知道如何更改代码以获得'/convert/15?to=usd&from=eur.' 作为请求并得到正确的答案。

希望任何人都可以帮助我。

提前致谢。

用最终解决方案编辑：

{-# LANGUAGE OverloadedStrings #-}

import Web.Scotty
import Data.Monoid (mconcat)
import Data.Text.Lazy (Text, pack)

main = scotty 3000 $ do
    get "/convert/:amount" $ do
        money <- param "amount"
        to <- param "to"
        frm <- param "from"
        html $ mconcat ["<h1>The result is: ", pack (show (convert 
money to frm)),  "</h1>"]

convert :: Double -> String -> String -> Double
convert a b c = if (b=="euro" && c=="usd") 
            then (a*1.091)
            else if (b=="usd" && c=="euro")
            then (a*0.915)
            else 0
4

1 回答 1

1

查看您需要调用 param 以获得所需内容的文档。

试试这个作为起点：

{-# LANGUAGE OverloadedStrings #-}

import Web.Scotty
import Data.Monoid

main = scotty 3000 $ do
  get "/convert/:amt" $ do
  amt <- param "amt"
  frm <- param "from"
  to <- param "to"
  html $ "<h1>" <> amt <>" in " <> frm <> " is " <> to <> "</h1>"

我会把转换部分留给你弄清楚。使用<>而不是 mconcat 似乎也更干净。

于 2017-05-01T12:10:22.847 回答