tA/evac
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

refactor

Browse Source
This commit is contained in:
Thorn Avery 2019-05-15 18:50:27 +12:00
parent 151b75d1d2
commit 2e367ba36f
2 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Groups.hs
View File

@ -1,11 +1,6 @@
module Groups where module Groups where
type Group = [MainCharacter] import State
type NeoTokyo = [Group]
type Downed = [MainCharacter]
type BoardState = (NeoTokyo, Downed)
data MainCharacter = Asuka | Shinji | Rei | Misato | Ritsuko | Gendo
deriving (Show, Eq)
-- Each characters default adjacents -- Each characters default adjacents
defFrens :: MainCharacter -> [MainCharacter] defFrens :: MainCharacter -> [MainCharacter]

8
State.hs Normal file
View File

@ -0,0 +1,8 @@
module State where
type Group = [MainCharacter]
type NeoTokyo = [Group]
type Downed = [MainCharacter]
type BoardState = (NeoTokyo, Downed)
data MainCharacter = Asuka | Shinji | Rei | Misato | Ritsuko | Gendo
deriving (Show, Eq)