代数的データ型その４

データにアクセスするのに専用の関数を作っていますが、無名関数で代用してみました。

data Anchor = A { aUrl   :: String,
                  aLabel :: String }

main = do putStrLn $ "Url  : " ++ (\(A u _) -> u) getAnchor
          putStrLn $ "Label: " ++ (\(A {aLabel = l}) -> l) getAnchor

getAnchor :: Anchor
getAnchor = A "http://www.example.com" "Example"