12 lines
258 B
Haskell
12 lines
258 B
Haskell
module State where
|
|
|
|
import Types
|
|
|
|
defCharsFaction :: Faction -> MainCharacter
|
|
defCharsFaction Blue = Shinji
|
|
defCharsFaction Red = Asuka
|
|
defCharsFaction White = Rei
|
|
defCharsFaction Green = Misato
|
|
defCharsFaction Yellow = Ritsuko
|
|
defCharsFaction Black = Gendo
|