在 haskell 中将 TUI 转换为 GUI

Question

我正在尝试将 Haskell 程序转换为 Haskell GUI 程序， 但由于我是 Haskell 的新手， 每次我尝试某件事时都会遇到很多错误。 我在 Stack Overflow 上多次询问这个程序， 但每当一个错误消失时，就会出现两个错误。

很抱歉问类似的问题，但是 我打算转换的程序的能力是 非常简单的单词搜索。 接收输入字符串，搜索单词，在窗口上打印。

任何建议、提示或例子都会对我非常有帮助。

我使用的是 Windows XP。抱歉，代码非常糟糕。

--GUI routine
import Graphics.UI.Gtk
import Text.Regex.Posix ((=~))
import Control.Monad (when)
--core routine
matchWord :: String -> String -> Int
matchWord file word = length . filter (== word) . concat $ file =~ "[^- \".,\n]+"

--main start
main :: IO ()
main =
      do initGUI
         win <- windowNew
         windowSetTitle win "WORD SEARCHER"
         win `onDestroy` mainQuit

         fch <- fileChooserWidgetNew FileChooserActionOpen
         containerAdd win fch 

         targetFile <- fileChooserGetFilename fch --wrong?

         ent <- entryNew
         btn <- buttonNewWithLabel "Click to search"
         st <- labelNew $ Just "Found : 0      "

         col <- vBoxNew False 5
         containerAdd col ent
         containerAdd col btn
         containerAdd col st    

         btn `onClicked` do targetWord <- entryGetText ent
                            fileData <- readFile Just targetFile
                            found <- matchWord fileData targetWord
                            labelSetText st found
         containerAdd win col
         widgetShowAll win
         mainGUI

感谢您的阅读

Answer 1

这将帮助您开始。

targetFile <- fileChooserGetFilename fch

此时，targetFile 的类型为 Maybe String；也就是说，它将返回 Just "somestring" 或 Nothing。您需要 "somestring" 部分（如果可用）。您可以通过模式匹配来获取它：

Just targetFile <- fileChooserGetFilename fch

如果fileChooserGetFilename的结果返回Nothing，这将失败并显示不透明的错误消息。为了提高鲁棒性，您可以对结果进行案例分析：

maybeTargetFile <- fileChooserGetFilename fch
targetFile <- case maybeTargetFile of
                  Nothing -> fail "I need a filename!"
                  Just file -> return file

另一个问题在这一行：

found <- matchWord fileData targetWord

x <- m 用于将操作 m 的结果绑定到变量中x，但 matchWord 返回一个 Int，而不是一个操作（例如，IO a 对于某些 a ）。