betterish card stack stuff

Connect.hs

@@ -24,7 +24,7 @@ import Players
 --   | otherwise = oldBoardState
 --      { bsGameLog = (bsGameLog oldBoardState)
 --         ++ [ Left (playerName p oldBoardState) ++ " announced " ++ (getCardLine l) ++ ", moved to active" ]
---      , 
+--      , bsCardStack
 
 -- TODO
 -- * manipulate the card stack after writing it

Init.hs

@@ -30,7 +30,7 @@ initBS = BoardState
       ]
    , bsActivePlayers = [1,2]
    , bsPriorityPlayer = 1
-   , bsCardStack = []
+   , bsActiveLine = Nothing
    , bsCardLib = gCardLib
    , bsGameLog = []
    }

Types.hs

@@ -12,7 +12,13 @@ data CardSym = S01_Shinji | S02_Asuka | S03_Rei | S04_Misato | S05_Ritsuko | S06
 type CardLib = [(CardSym, CardInfo)]
 type Downed = [MainCharacter]
 type PutCards = [(Either MainCharacter MainEva, CardSym)]
-type CardStack = [(PlayerId, CardSym)]
+type ActiveLine = Maybe LineMeta
+data LineMeta = LineMeta
+   { cmCardSym :: CardSym
+   , cmOwner :: PlayerId
+   , cmTarget :: MainCharacter
+   , cmLineMark :: LineMark
+   }
 data NeoTokyo = NeoTokyo
    { ntGroups :: Groups
    , ntEvas :: Evas
@@ -29,7 +35,7 @@ data BoardState = BoardState
    , bsPlayerLib :: PlayerLib
    , bsActivePlayers :: ActivePlayers
    , bsPriorityPlayer :: PriorityPlayer
-   , bsCardStack :: CardStack
+   , bsActiveLine :: ActiveLine
    , bsCardLib :: CardLib
    , bsGameLog :: GameLog
    }