データにアクセスするのに専用の関数を作っていますが、無名関数で代用してみました。 data Anchor = A { aUrl :: String, aLabel :: String } main = do putStrLn $ "Url : " ++ (\(A u _) -> u) getAnchor putStrLn $ "Label: " ++ (\(A {aLabel = l}) -> …