Skip to content

Instantly share code, notes, and snippets.

@michaelschade

michaelschade/hs-vcard-example.hs

Created April 28, 2011 03:33
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save michaelschade/945745 to your computer and use it in GitHub Desktop.
Save michaelschade/945745 to your computer and use it in GitHub Desktop.
Download ZIP
hs-vcard Example
Raw
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] "Frank_Dawson@Lotus.com"
, Email [EmailInternet] "fdawson@earthlink.net"
, URL "http://home.earthlink.net/~fdawson"
]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment