如何调试 reflex-dom 程序-

how to debug reflex-dom programs-

所以我刚刚发现了这个库,并认为它对于构建 UI 来说可能很棒。这是我在学习这个库时尝试实现的一个小练习。基本上它会尝试打开本地文件系统上的目录并显示该目录中的所有文件。它编译没有问题,但是当我打开 index.html 时,它只显示一个空白页。我不知道如何调试程序。这是代码:

{-# LANGUAGE OverloadedStrings #-}
import           Reflex.Dom
import qualified Data.Text as T
import           System.Directory
import           System.FilePath
import           Control.Monad
import           Data.List (map)


main :: IO ()
main = do
  files <- getDirectoryContents "/"
  let names = map (T.pack . show) files
  mainWidget $ body  names

body :: MonadWidget t m => [T.Text] ->  m ()
body files = el "div" $ do
  el "h2" $ text "Reflex File Test"
  el "ul" $ do
    let lables = map text files
    mapM_ (el "li")  lables

调试 ghcjs 问题的第一步是检查浏览器控制台。在这种情况下,您将看到:"/: getDirectoryContents: failed (operation unsupported on this platform)"

这是有道理的。代码在浏览器中 运行 - 不在服务器上,或直接在客户端上。所以整个文件系统的概念在这里并不适用。