运行函数作为Haskell中DBus通知的操作

我正在尝试制作一个应用程序，从BBC新闻网站上抓取新闻标题，在检索到文件后向用户桌面发送通知，然后让用户选择打开一个显示文章标题及其链接的窗口。除了最后一部分，一切都很好-我无法让fdo notify运行操作。我不确定语法会是什么，但我有：

broadCastHeadlines = do
         client <- connectSession
         let startNote = Note { appName = "BBC News Headlines" , appImage = Nothing ,
                                summary="BBC News Headlines", actions = [], hints = [],
                                body=(Just $ Text "Latest Headlines"),
                                expiry = Never}
         notification <- notify client startNote
         headlines <- readHeadlinesFromFile
         --let headlines' = unlines $ map show headlines
         let endNote = Note { appName = "BBC News Headlines" , appImage = Nothing ,
                                summary="BBC News Headlines", actions = [(Action {actionName = "UI.main"}, "Open")], hints = [],
                                body=(Just $ Text ((getTitle $ head headlines) ++ " and " ++ (show $ length headlines) ++ " more stories.")), expiry = Never}
         headlines `seq` replace client notification endNote

broadcastedheadlines=do
你能提供到有问题的图书馆的链接吗？你能提供到有问题的图书馆的链接吗。