使用设置值的widgetFile文件路径

Question

我通过在设置文件中引入主题设置（它是类型Text的必需值）来使我的博客系统更加通用。这将保留主题的名称，这将使小部件指向这个方向

getHomeR :: Handler Html
getHomeR = do
    extra <- getExtra
    defaultLayout $ do
        $(widgetFile $ "theme/" ++ (extraTheme extra) ++ "/home")

这种方法的问题是，ghc告诉我这里有一个升级问题：/

所以，问题是;什么是基于设置值“动态”设置窗口小部件文件的路径的最佳方法？或者是否可以覆盖/创建执行此操作的widgetFile的替代实现？

我正在使用默认的脚手架btw。