haskell - 如何迭代记录字段？

Question

我将以下数据类型定义为记录

data Config = Config
  { field1 :: String
  , field2 :: String
  , field3 :: String
  }

我想遍历 Config 的每个字段, 应用一些函数 String -> String ，例如 tail并获得新的 Config .

这样做的惯用方法是什么？最好没有繁重的第 3 方库。

Answer 1

好吧，最好的方法可能是

{-# LANGUAGE DeriveFunctor #-}

type Config = Config' String
data Config' a = Config
  { field1 :: a
  , field2 :: a
  , field3 :: a
  } deriving (Functor)

configHeads :: Config -> Config' Char
configHeads = fmap head