haskell - 在 IHP 的 Helper 文件中正确导入

Question

我正在尝试将我的一些 View 和 Controller 逻辑集中到 Application.Helper.Controller 中各自帮助文件中的帮助程序中。和 Application.Helper.View .
我发现我无权访问我可以访问的包，例如在我的 Controller 文件中。例如 Data.Text还有很多其他的。当我什至无法访问管道运算符(operator)时，我停止尝试将它们全部导入。
与 View.hs 相同帮助文件无权访问 hsx句法。
有没有简单的方法来解决这个问题？你如何解决这个问题？必须在此处手动进行导入吗？
在 Web/Controller 中创建 Helper 文件对我来说似乎更简单。文件夹，因为该文件夹中的模块似乎可以毫无问题地进行正确的自动导入。
我的 Controller.hs 文件现在看起来，不支持 Data.Text 和管道运算符之类的东西:

module Application.Helper.Controller (
    module IHP.LoginSupport.Helper.Controller
) where

-- Here you can add functions which are available in all your controllers

import IHP.LoginSupport.Helper.Controller
import Generated.Types


type instance CurrentUserRecord = User

和不支持 hsx 语法的 View.hs:

module Application.Helper.View (
    -- To use the built in login:
    module IHP.LoginSupport.Helper.View
) where

-- Here you can add functions which are available in all your views

-- To use the built in login:
import IHP.LoginSupport.Helper.View

Answer 1

在 Application.Helper.Controller您需要导入 IHP.ControllerPrelude ， 像这样:

module Application.Helper.Controller (
    module IHP.LoginSupport.Helper.Controller
) where

-- Here you can add functions which are available in all your controllers

import IHP.LoginSupport.Helper.Controller
import Generated.Types
import IHP.ControllerPrelude


type instance CurrentUserRecord = User

在 Application.Helper.View您需要导入 IHP.ViewPrelude ， 像这样:

module Application.Helper.View (
    -- To use the built in login:
    module IHP.LoginSupport.Helper.View
) where

-- Here you can add functions which are available in all your views

-- To use the built in login:
import IHP.LoginSupport.Helper.View
import IHP.ViewPrelude

这应该适本地添加到国际水文计划项目模板中。