Làm cách nào để lặp qua các trường bản ghi?

Question

Tôi đã sau datatype định nghĩa là kỷ lục

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

Tôi muốn để lặp qua mỗi lĩnh vực Config, áp dụng một số chức năng String -> String, ví dụ tail và nhận được trong trở lại mới Config.

Cách thành ngữ để làm điều này là gì? Tốt hơn là không có thư viện của bên thứ 3 nặng.

Answer 1

Vâng, cách tốt nhất để làm điều đó có lẽ sẽ là

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