Question

将这个简单的基础仿函数和其他机器用于具有约束条件的免费monad：

{-# LANGUAGE DeriveFunctor #-}

import Control.Monad.Free

data ProgF r =
    FooF (Double -> r)
  | BarF Double (Int -> r)
  | EndF
  deriving Functor

type Program = Free ProgF

foo   = liftF (FooF id)
bar a = liftF (BarF a id)

这是一个简单的程序

prog :: Program Int
prog = do
  a <- foo
  bar a

它有以下（手工制作）AST：

prog =
  Free (FooF (\p0 ->
    Free (BarF p0 (\p1 ->
      Pure p1))

我希望能够通过以下方式解释约束条款：

查看AST中的Pure术语
注意那里发生的绑定变量
注释AST中的相应绑定节点

直接通过cofree comonad注释一个免费的monad AST似乎是不可能的，如果没有some kind of pairing，你可以想象得到类似下面注释的AST（通过，比方说，Fix） Pure中显示的节点绑定变量使用Just True注释：

annotatedProg =
  Just False :< FooF (\p0 ->
    Just True :< BarF p0 (\p1 ->
      Nothing  :< EndF))

那么：有没有办法以这种特别的方式检查这样的程序中的绑定？即，例如，没有引入明确的变量类型àlathis question。

我怀疑这可能是不可能的。像data-reify这样的选项很有吸引力但似乎很难或不可能使ProgF成为必需类型类的实例（Foldable，Traversable，MuRef）

这种直觉是正确的，还是有一些方法可以做到这一点，我没有考虑过？请注意，我很乐意接受任何令人毛骨悚然的不安全或动态的手段。

Answer 1

我很满意任何“理智”都无法做到这一点。 ad-hoc方法，其原因大多与检查例如结合结构的结合结构相同。 \a -> \b -> \c -> b + a。

检查自由monad AST中的绑定结构

1 个答案: