1

我有以下问题。我尝试使用 Gtk2Hs 和 Glade 在 Haskell 中为 BASE64 编码器创建一个简单的 GUI。这是 Haskell 中 BASE64 编码器的示例。

{-# LANGUAGE OverloadedStrings #-}

import Data.ByteString.Base64
import Data.ByteString.Char8

main = do
    print $ unpack $ encode "Hello, world!"
    print $ decode "SGVsbG8sIHdvcmxkIQ=="

现在我想为此示例创建 GUI，但我希望能够输入任何值进行编码。我已经创建了包含以下组件的模板： - entry1（输入要编码的值） - 按钮（开始生成） - entry2（查看生成的值）

我的哈斯克尔代码：

entry1 <- builderGetObject hello castToEntry "entry1"
entry2 <- builderGetObject hello castToEntry "entry2"
button <- builderGetObject hello castToButton "button"
onClicked button $ do
    name2 <- get entry1 entryText
    set entry2 [ entryText := unpack $ encode name2]

编译时收到以下错误

Couldn't match expected type `ByteString' with actual type `String'
In the first argument of `encode', namely `name2'
In the second argument of `($)', namely `encode name2'
In the second argument of `(:=)', namely `unpack $ encode name2'
4

1 回答 1

1

name2是 类型String，而encode需要ByteString. 最简单的做法就是使用pack函数 fromData.ByteString.Char8进行转换。但是，这有一个问题：它只适用于 ASCII 代码点。如果用户输入非 ASCII 字符（לדוגמה、כזה）会发生什么？

相反，我建议对您的文本进行 UTF8 编码。为此，我会使用这个text包，它看起来像：

import qualified Data.Text as T
import qualified Data.Text.Encoding as TE

encode $ TE.encodeUtf8 $ T.pack name2
于 2014-06-20T04:12:57.773 回答