haskell – 让重命名功能中断代码

栏目: 编程语言 · 发布时间: 6年前

内容简介:问题当然不是重命名,而是绑定到一个新的变量.由于iterateFunc是Rank-2,它需要一个多态参数函数.当然,f是v中的多态,所以可以使用.但是当你写f’= f时,不清楚什么类型f’应该是:与f相同的多态类型或一些单态类型,可能取决于编译器尚未推出的iteratedF中的另一个类型变量的一些关系.编译器默认为单态选项;因为chi说这是单态限制在这里的错误,所以如果你把它关闭你的代码实际编译.尽管如此,即使在RankNTypes代码中没有单态限制,同样的问题也可能会发生,但是它不能完全避免.唯一可靠的

在将代码迭代到正确的版本时,我遇到了以下好奇心:

{-# LANGUAGE RankNTypes #-}

module Foo where

import Data.Vector.Generic.Mutable as M
import Control.Monad.Primitive

-- an in-place vector function with dimension
data DimFun v m r = 
  DimFun Int (v (PrimState m) r -> m ())

eval :: (PrimMonad m, MVector v r) => DimFun v m r -> v (PrimState m) r -> m ()
eval = error ""

iterateFunc :: (PrimMonad m, MVector v r)
            => (forall v' . (MVector v' r) => DimFun v' m r) -> DimFun v m r
iterateFunc = error ""

f :: (PrimMonad m, MVector v r)
      => DimFun v m r
f = error ""

iteratedF :: (MVector v r, PrimMonad m) 
           => v (PrimState m) r -> m ()
iteratedF y = 
    let f' = f
    in eval (iterateFunc f') y

此代码不编译:

Testing/Foo.hs:87:14:
    Could not deduce (MVector v0 r) arising from a use of ‘f’
    from the context (MVector v r, PrimMonad m)
      bound by the type signature for
                 iteratedF :: (MVector v r, PrimMonad m) =>
                              v (PrimState m) r -> m ()
      at Testing/Foo.hs:(84,14)-(85,39)
    The type variable ‘v0’ is ambiguous
    Relevant bindings include
      f' :: DimFun v0 m r (bound at Testing/Foo.hs:87:9)
      y :: v (PrimState m) r (bound at Testing/Foo.hs:86:11)
      iteratedF :: v (PrimState m) r -> m ()
        (bound at Testing/Foo.hs:86:1)
    In the expression: f
    In an equation for ‘f'’: f' = f
    In the expression: let f' = f in eval (iterateFunc f') y

Testing/Foo.hs:88:26:
    Couldn't match type ‘v0’ with ‘v'’
      because type variable ‘v'’ would escape its scope
    This (rigid, skolem) type variable is bound by
      a type expected by the context: MVector v' r => DimFun v' m r
      at Testing/Foo.hs:88:14-27
    Expected type: DimFun v' m r
      Actual type: DimFun v0 m r
    Relevant bindings include
      f' :: DimFun v0 m r (bound at Testing/Foo.hs:87:9)
    In the first argument of ‘iterateFunc’, namely ‘f'’
    In the first argument of ‘eval’, namely ‘(iterateFunc f')’
Failed, modules loaded: none.

但是,如果我将iteratedF的定义更改为

iteratedF y = eval (iterateFunc f) y

代码编译GHC 7.8.2.这个问题不是关于奇怪的签名或数据类型,只是这样:为什么重命名f到f’打破代码?这似乎是对我来说是个错误.

问题当然不是重命名,而是绑定到一个新的变量.由于iterateFunc是Rank-2,它需要一个多态参数函数.当然,f是v中的多态,所以可以使用.但是当你写f’= f时,不清楚什么类型f’应该是:与f相同的多态类型或一些单态类型,可能取决于编译器尚未推出的iteratedF中的另一个类型变量的一些关系.

编译器默认为单态选项;因为chi说这是单态限制在这里的错误,所以如果你把它关闭你的代码实际编译.

尽管如此,即使在RankNTypes代码中没有单态限制,同样的问题也可能会发生,但是它不能完全避免.唯一可靠的修复是本地签名,通常需要ScopedTypeVariables.

代码日志版权声明:

翻译自:http://stackoverflow.com/questions/24724738/let-renaming-function-breaks-code


以上所述就是小编给大家介绍的《haskell – 让重命名功能中断代码》,希望对大家有所帮助,如果大家有任何疑问请给我留言,小编会及时回复大家的。在此也非常感谢大家对 码农网 的支持!

查看所有标签

猜你喜欢:

本站部分资源来源于网络,本站转载出于传递更多信息之目的,版权归原作者或者来源机构所有,如转载稿涉及版权问题,请联系我们

算法技术手册(原书第2版)

算法技术手册(原书第2版)

George T. Heineman、Gary Pollice、Stanley Selkow / 杨晨、曹如进 / 机械工业出版社 / 2017-8-1 / 89.00元

本书使用实际代码而非伪代码来描述算法,并以经验主导支撑数学分析,侧重于应用且规范严谨。本书提供了用多种程序设计语言实现的文档化的实际代码解决方案,还介绍了近40种核心算法,其中包括用于计算点集的Voronoi图的Fortune算法、归并排序、多线程快速排序、AVL平衡二叉树实现以及空间算法。一起来看看 《算法技术手册(原书第2版)》 这本书的介绍吧!

HTML 压缩/解压工具
HTML 压缩/解压工具

在线压缩/解压 HTML 代码

XML、JSON 在线转换
XML、JSON 在线转换

在线XML、JSON转换工具

正则表达式在线测试
正则表达式在线测试

正则表达式在线测试