recursion-schemeをGADTとDataKindsで - Qiita

recursion-schemeではdata familiesを用いている為形状の違う関手毎に別のデータ構築子を用意してやらなければいけない。 そこでDependently Typed Programming in Agdaの3.2の手法をHaskellで実装した。 WrapFunctorは型族Evalに対して部分適用を行う為のラッパーである。 {-# LANGUAGE GADTs, TypeOperators, KindSignatures, TypeFamilies, DataKinds, PolyKinds, RankNTypes, FlexibleInstances, TemplateHaskell, ScopedTypeVariables, FlexibleContexts #-} module Main where import Unsafe.Coerce import Num