レコードフィールドを反復処理する方法は？

Question

私は、レコード

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

として定義データ型以下の私は、Configの各フィールドを反復処理するいくつかの機能String -> Stringを適用し、例えば、tailため、戻り新しいConfigで取得したいです。

これを行うにはどのような方法がありますか？好ましくは、重い第三者図書館なし。

Answer 1

まあ、それを行うための最善の方法は、おそらく `head`関数は` Char`を返し

{-# 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