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

import Language.Drasil (Person, person, person', personWM, personWM', mononym)
import Drasil.Metadata.People

henryFrankis, daAruliah, gWilson,
  cTitus, kdHuff, nChueHong, mDavis, rGuy, shdHaddock, imMitchell, mdPlumblet,
  bWaugh, epWhite, pWilson, luthfi, alex, nikitha, thulasi,
  brooks, mLightstone, 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

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"
dong :: Person
dong          = String -> String -> Person
person    String
"Dong"                      String
"Chen"
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"
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"
jKrahn :: Person
jKrahn        = String -> String -> Person
person    String
"J"                         String
"Krahn"
nikitha :: Person
nikitha       = String -> String -> Person
person    String
"Nikitha"                   String
"Krithnan"
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"
rodPierce :: Person
rodPierce     = String -> String -> Person
person    String
"Rod"                       String
"Pierce"
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"
olu :: Person
olu           = String -> String -> Person
person    String
"Olu"                       String
"Owojaiye"
  --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"
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
dmWiess :: Person
dmWiess       = String -> [String] -> String -> Person
personWM  String
""          []              String
"Wiess"
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"

-- 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"