这个GHC.Generic函数签名错误消息是什么意思？

Question

我正在学习Haskell。 为什么我不能在getName的方法签名中将Person更改为类型变量a

{-# LANGUAGE DeriveGeneric #-}
module Main where

import GHC.Generics


data Person = Person { id   :: Int
                     , name :: String
                     , age  :: Int }
            deriving (Generic, Show)

p = from $ Person 12 "J" 12

getName :: (Rep Person) x -> String
-- getName :: Generic a => (Rep a) x -> String
----^ Err: Couldn't match type ‘Rep a0’ with ‘Rep a
getName f = concat [ moduleName f
                   , "_"
                   , datatypeName f
                   ]

n = getName p

Answer 1

Rep是一个关联的类型同义词，即实际类型可以是任何东西，具体取决于特定类型类实例的实现。 无法保证任何a Rep a是与函数moduleName所需类型兼容的类型。

Rep Person有效，因为编译器能够检查Generic Person的类型类实例的关联类型是否符合moduleName期望的类型（即Datatype d => td (f :: * -> *) a ）。

而不是使用Rep a您可以改为使用

getName :: Datatype d => t d (f :: * -> *) a -> String
getName f = concat [ moduleName f
                   , "_"
                   , datatypeName f
                   ]

虽然您还需要启用KindSignatures扩展。

Answer 2

只需省略getName的类型签名即可。

在ghci会话中运行代码会产生以下结果：

ghci> :t getName
getName :: Datatype d => t d f a -> [Char]

ghci> getName p
"Lib9_Person"

ghci> :t getName p
getName p :: [Char]

注意：我的代码位于模块Lib9 ，它解释了getName p的输出。

如果要为其指定类型签名，请启用KindSignatures并使用：

getName :: Datatype d => (t :: * -> (* -> *) -> * -> *) d f a -> [Char]