-- | Define people for use in Drasil. Used often in authors and citations.
module Data.Drasil.People where

import Language.Drasil (Person, person, person', personWM, personWM', mononym)
  
spencerSmith, henryFrankis, nKoothoor, dParnas, daAruliah, gWilson,
  cTitus, kdHuff, nChueHong, mDavis, rGuy, shdHaddock, imMitchell, mdPlumblet,
  bWaugh, epWhite, pWilson, pcClements, luthfi, alex, nikitha, thulasi,
  brooks, mLightstone, lLai, pjAgerfalk, nKraiem, jRalyte, jBueche,
  fIncropera, dDewitt, tBergman, aLavine, jRobertson, sRobertson, 
  wlBeason, tlKohutek, jmBracci, qhQian, dyZhu, cfLee, grChen, dgFredlund,
  jKrahn, dStolle, yCLi, ymChen, tltZhan, ssLing, pjCleall, pGuo,
  mCampidelli,   dmWiess, sPalmer, scottSmith, bKarchewski, rHuston, 
  hJosephs, nrMorgenstern, vePrice, samCrawford, rcHibbeler, olu, rodPierce,
  dong :: Person
  
pjAgerfalk :: Person
pjAgerfalk    = String -> String -> Person
person    "PJ"                        "Agerfalk"
daAruliah :: Person
daAruliah     = String -> [String] -> String -> Person
personWM  "D"         ["A"]           "Aruliah"
wlBeason :: Person
wlBeason      = String -> [String] -> String -> Person
personWM  "W"         ["Lynn"]        "Beason"
tBergman :: Person
tBergman      = String -> [String] -> String -> Person
personWM  "T"         ["L"]           "Bergman"
jmBracci :: Person
jmBracci      = String -> [String] -> String -> Person
personWM  "Joseph"    ["M"]           "Bracci"
jBueche :: Person
jBueche       = String -> [String] -> String -> Person
personWM  "J"         ["Frederick"]   "Bueche"
mCampidelli :: Person
mCampidelli   = String -> String -> Person
person    "Manuel"                    "Campidelli"
grChen :: Person
grChen        = String -> [String] -> String -> Person
personWM' "G"         ["R"]           "Chen"
ymChen :: Person
ymChen        = String -> String -> Person
person'   "Yun-Min"                   "Chen"
pjCleall :: Person
pjCleall      = String -> [String] -> String -> Person
personWM  "Peter"     ["John"]        "Cleall"
pcClements :: Person
pcClements    = String -> [String] -> String -> Person
personWM  "P"         ["C"]           "Clements" -- The Modular Structure of Complex Systems ICSE '84
samCrawford :: Person
samCrawford   = String -> [String] -> String -> Person
personWM  "Samuel"    ["J"]           "Crawford"
mDavis :: Person
mDavis        = String -> String -> Person
person    "Matt"                      "Davis"
dDewitt :: Person
dDewitt       = String -> [String] -> String -> Person
personWM  "D"         ["P"]           "Dewitt"
henryFrankis :: Person
henryFrankis  = String -> String -> Person
person    "Henry"                     "Frankis"
dgFredlund :: Person
dgFredlund    = String -> [String] -> String -> Person
personWM  "D"         ["G"]           "Fredlund"
rGuy :: Person
rGuy          = String -> [String] -> String -> Person
personWM  "Richard"   ["T"]           "Guy"
pGuo :: Person
pGuo          = String -> String -> Person
person    "Peijun"                    "Guo"
shdHaddock :: Person
shdHaddock    = String -> [String] -> String -> Person
personWM  "Steven"    ["H", "D"]      "Haddock"
alex :: Person
alex          = String -> String -> Person
person    "Alex"                      "Halliwushka"
rcHibbeler :: Person
rcHibbeler    = String -> [String] -> String -> Person
personWM' "R"         ["C"]           "Hibbeler"
rHuston :: Person
rHuston       = String -> String -> Person
person    "Ronald"                    "Huston"
nChueHong :: Person
nChueHong     = String -> [String] -> String -> Person
personWM  "Neil"      ["P"]           "Chue Hong"
kdHuff :: Person
kdHuff        = String -> [String] -> String -> Person
personWM  "Kathryn"   ["D"]           "Huff"
fIncropera :: Person
fIncropera    = String -> [String] -> String -> Person
personWM  "F"         ["P"]           "Incropera"
thulasi :: Person
thulasi       = String -> String -> Person
person    "Thulasi"                   "Jegatheesan"
hJosephs :: Person
hJosephs      = String -> String -> Person
person    "Harold"                    "Josephs"
bKarchewski :: Person
bKarchewski   = String -> String -> Person
person    "Brandon"                   "Karchewski"
tlKohutek :: Person
tlKohutek     = String -> [String] -> String -> Person
personWM  "Terry"     ["L"]           "Kohutek"
nKoothoor :: Person
nKoothoor     = String -> String -> Person
person    "Nirmitha"                  "Koothoor"
nKraiem :: Person
nKraiem       = String -> String -> Person
person    "N"                         "Kraiem"
jKrahn :: Person
jKrahn        = String -> String -> Person
person    "J"                         "Krahn"
nikitha :: Person
nikitha       = String -> String -> Person
person    "Nikitha"                   "Krithnan"
lLai :: Person
lLai          = String -> String -> Person
person    "Lei"                       "Lai"
aLavine :: Person
aLavine       = String -> [String] -> String -> Person
personWM  "A"         ["S"]           "Lavine"
cfLee :: Person
cfLee         = String -> [String] -> String -> Person
personWM' "C"         ["F"]           "Lee"
mLightstone :: Person
mLightstone   = String -> String -> Person
person    "Marilyn"                   "Lightstone"
yCLi :: Person
yCLi          = String -> String -> Person
person'   "Yu-Chao"                   "Li"
ssLing :: Person
ssLing        = String -> String -> Person
person'   "Sao-Sheng"                 "Ling"
brooks :: Person
brooks        = String -> String -> Person
person    "Brooks"                    "MacLachlan"
luthfi :: Person
luthfi        = String -> String -> Person
person    "Luthfi"                    "Mawarid"
imMitchell :: Person
imMitchell    = String -> [String] -> String -> Person
personWM  "Ian"       ["M"]           "Mitchell"
nrMorgenstern :: Person
nrMorgenstern = String -> [String] -> String -> Person
personWM  "N"         ["R"]           "Morgenstern"
sPalmer :: Person
sPalmer       = String -> String -> Person
person    "Steven"                    "Palmer"
dParnas :: Person
dParnas       = String -> [String] -> String -> Person
personWM  "David"     ["L"]           "Parnas"
mdPlumblet :: Person
mdPlumblet    = String -> [String] -> String -> Person
personWM  "Mark"      ["D"]           "Plumblet"
vePrice :: Person
vePrice       = String -> [String] -> String -> Person
personWM  "P"         ["E"]           "Price"
qhQian :: Person
qhQian        = String -> [String] -> String -> Person
personWM' "Q"         ["H"]           "Qian"
jRalyte :: Person
jRalyte       = String -> String -> Person
person    "J"                         "Ralyte"
  --FIXME: person takes strings but we need an "e" with an accent
  -- S "J. Ralyt" :+: (F Acute 'e')
jRobertson :: Person
jRobertson    = String -> String -> Person
person    "James"                     "Robertson"
sRobertson :: Person
sRobertson    = String -> String -> Person
person    "Suzanne"                   "Robertson"
scottSmith :: Person
scottSmith    = String -> String -> Person
person    "Scott"                     "Smith"
spencerSmith :: Person
spencerSmith  = String -> [String] -> String -> Person
personWM  "W"         ["Spencer"]     "Smith"
dStolle :: Person
dStolle       = String -> String -> Person
person    "Dieter"                    "Stolle"
cTitus :: Person
cTitus        = String -> String -> Person
person    "C"                         "Titus"
bWaugh :: Person
bWaugh        = String -> String -> Person
person    "Ben"                       "Waugh" -- Best Practices for Scientific Computing 2013
epWhite :: Person
epWhite       = String -> [String] -> String -> Person
personWM  "Ethan"     ["P"]           "White" -- Best Practices for Scientific Computing 2013
gWilson :: Person
gWilson       = String -> String -> Person
person    "Greg"                      "Wilson"
pWilson :: Person
pWilson       = String -> String -> Person
person    "Paul"                      "Wilson" -- Best Practices for Scientific Computing 2013
tltZhan :: Person
tltZhan       = String -> [String] -> String -> Person
personWM  "Tony"      ["L","T"]       "Zhan"
dyZhu :: Person
dyZhu         = String -> [String] -> String -> Person
personWM' "D"         ["Y"]           "Zhu"
dmWiess :: Person
dmWiess       = String -> [String] -> String -> Person
personWM  ""          []              "Wiess"
olu :: Person
olu           = String -> String -> Person
person    "Olu"                       "Owojaiye"
rodPierce :: Person
rodPierce     = String -> String -> Person
person    "Rod"                       "Pierce"
dong :: Person
dong          = String -> String -> Person
person    "Dong"                      "Chen"

-- Right now, we have to say this is a 'Person', even though it clearly isn't
wikiAuthors :: Person
wikiAuthors :: Person
wikiAuthors   = String -> Person
mononym "Wikipedia Contributors"