使用Haskell构建一个简单的图形用户界面（GUI）应用程序

在Haskell中构建图形用户界面（GUI）应用程序可以使用Haskell的GUI库gtk2hs。Gtk2hs是Haskell语言的GTK+绑定，允许开发人员创建具有丰富界面和交互功能的GUI应用程序。

下面是一个简单的示例，使用Gtk2hs构建一个GUI应用程序。这个应用程序将显示一个窗口，窗口内有一个文本框和一个按钮。当用户点击按钮时，应用程序将显示文本框中输入的文本。

import Graphics.UI.Gtk

main :: IO ()
main = do
  -- 初始化GTK库
  void initGUI

  -- 创建顶层窗口
  window <- windowNew
  set window [windowTitle := "GUI App", containerBorderWidth := 10]

  -- 创建文本框
  entry <- entryNew

  -- 创建按钮
  button <- buttonNewWithLabel "显示文本"
  -- 定义按钮点击事件的处理函数
  onClicked button $ do
    text <- entryGetText entry
    putStrLn text

  -- 创建一个垂直布局的容器
  vbox <- vBoxNew False 10
  -- 将文本框和按钮添加到容器中
  boxPackStart vbox entry PackNatural 0
  boxPackStart vbox button PackNatural 0

  -- 将容器添加到窗口中
  containerAdd window vbox

  -- 注册窗口关闭事件处理函数
  onDestroy window mainQuit

  -- 显示窗口和其中的控件
  widgetShowAll window

  -- 启动主循环
  mainGUI

这个示例程序首先通过initGUI函数初始化GTK库。然后，它创建了一个顶层窗口window，并设置标题和边框宽度。接下来，它创建了一个文本框entry和一个按钮button。通过onClicked函数为按钮的点击事件注册一个处理函数，此处理函数在控制台上打印出文本框中输入的文本。它还创建了一个垂直布局的容器vbox，并将文本框和按钮添加到容器中。最后，它将容器添加到窗口中，并为窗口的关闭事件注册了一个处理函数。最后，程序通过mainGUI启动主循环，使应用程序响应用户的交互操作。

要运行这个示例程序，需要在计算机上安装GTK库和gtk2hs库。在Ubuntu上，可以使用以下命令安装GTK库和gtk2hs库：

sudo apt-get install libgtk2.0-dev
cabal install gtk2hs-buildtools
cabal install gtk

然后，将示例程序保存在一个文件中（例如gui-app.hs），并运行以下命令编译和运行程序：

ghc --make gui-app.hs
./gui-app

这将启动应用程序的窗口，并可以输入文本到文本框中。当点击按钮时，应用程序将在控制台上显示文本框中输入的文本。

这只是一个简单的示例，gtk2hs提供了许多其他功能，例如创建菜单、对话框和绘制等。有关更详细的信息和使用示例，请参阅gtk2hs的文档。