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

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