hs-vcard Example

hs-vcard-example.hs

import Text.VCard

vc = VCard  "Frank Dawson"
            (IndividualNames ["Dawson"] ["Frank"] [] [] [])
            [ Organization ["Lotus Development Corporation"]
            , Address [AddrWork, AddrPostal, AddrParcel] "" ""
                        "6544 Battleford Drive"
                        "Raleigh" "NC" "27613-3502" "U.S.A"
            , Telephone [TelVoice, TelMessage, TelWork] "+1-919-676-9515"
            , Telephone [TelFax, TelWork] "+1-919-676-9564"
            , Email [EmailInternet, EmailPreferred] "[email protected]"
            , Email [EmailInternet] "[email protected]"
            , URL "http://home.earthlink.net/~fdawson"
            ]