6

PureScript by Example，在The Eff Monad -> Handlers and Actions一节中指出“[效果] 处理程序通常会从集合中减去效果”。但是，这些示例相当不透明，我无法弄清楚如何编写自己的处理程序来实现这一点。

具体来说，我正在使用 purescript-aff 和purescript-affjax。我想将 runAff（来自 purescript-aff）与 get（来自 purescript-affjax）结合使用。

问题是get使用 Affjax monad，而runAff期望使用 Aff monad。

Affjax 定义为：

type Affjax e a = Aff (ajax :: AJAX | e) (AffjaxResponse a)

Aff 定义为：

foreign import data Aff :: # ! -> * -> *

因此，我想编写一个具有以下类型的函数：

Affjax e a -> Aff e a

在我看来，这似乎需要一个处理程序来减去ajax效果集的一部分。如何编写这样的处理程序？

尝试进行模式匹配，如下所示，当然会导致错误unexpected |。

handleAffjax :: Affjax e a -> Aff e a
handleAffjax (Aff ( | eff1 ) resp1) = Aff eff1 resp1

谢谢大家。

更新

受@christoph-hegemann下面的回答启发，我能够找到我的代码的大部分问题。

我认为标题中问题的答案是不会从集合中减去效果，而且这种描述有点令人困惑。处理后效果仍然存在。

我缺少的直觉是我必须将预期效果添加到调用函数类型。缺少类型声明在main某种程度上隐藏了这一点。当我将 Christoph 的示例转换为以下编译示例时，我解决了这个问题：

module Main where

import Debug.Trace
import Network.HTTP.Affjax
import Control.Monad.Aff
import Control.Monad.Eff
import Control.Monad.Eff.Exception

initialUrl :: URL
initialUrl = "http://127.0.0.1:8000/api/v1/navitem/2/"

runGet :: forall e. Eff (ajax :: AJAX, trace :: Trace | e) Unit
runGet = runAff errorHandler successHandler (get initialUrl)

errorHandler :: forall e. Error -> Eff (trace :: Trace | e) Unit
errorHandler err = print err

successHandler :: forall e. AffjaxResponse String -> Eff (trace :: Trace | e) Unit
successHandler res = print res.response

main = runGet
4

1 回答 1

5

我会一步一步来的^^

问题是 get 使用 Affjax monad，而 runAff 期望使用 Aff monad。

Affjax 定义为：

type Affjax e a = Aff (ajax :: AJAX | e) (AffjaxResponse a)

Affjax 是一个类型的同义词。这意味着 Affjax 不是它自己的 Monad，而是 Aff Monad 的一个特例。接下来让我们看一下：

Aff 定义为：

foreign import data Aff :: # ! -> * -> *

所以 Aff 是一个类型构造函数，它接受2 个类型作为参数来生成一个新类型。第一个参数的类型是 # ！这告诉我们：

  • # -> 这是一排...
  • ！-> ...由效果组成

因此，当您查看 Affjax 类型同义词的定义时，您可以看到 Aff 类型构造函数的第一个参数是一行包含该ajax :: Ajax效果但对扩展开放的效果| e。

Aff 的第二个参数只是一个类型，在 Affjax 的情况下是由类型变量 a 参数化的 AffjaxResponse。

查看Pursuit会发现 AffjaxResponse 只是记录的类型同义词，因此您可以使用点运算符访问它的成员。

我整理了一个最小的编译示例，可以帮助您入门：

module Main where

import Debug.Trace
import Network.HTTP.Affjax
import Control.Monad.Aff
import Control.Monad.Eff
import Control.Monad.Eff.Exception

errorHandler :: forall e. Error -> Eff (trace :: Trace | e) Unit
errorHandler err = print err

successHandler :: forall e. AffjaxResponse String -> Eff (trace :: Trace | e) Unit
successHandler res = print res.response

main = runAff errorHandler successHandler (get "http://www.myApi.com/api" )
于 2015-06-07T19:25:23.450 回答