PlanIt just for learning

PlantIt.hs

module PlantIt where

import Control.Concurrent.STM
import Control.Monad

data Card = Zero
          | Half
          | One
          | Two
          | Three
          | Five
          | Eight
          | ThirdT
          | Twenty
          | Forty
          | Hundred
          | None
          | Coffe
          deriving (Show, Enum, Eq)

type UserId = Int

data User = User { name  :: String
            , email :: String
            , id_    :: UserId
            , rooms :: [Room]
            } deriving (Show)

data Room = Room { participants :: [UserId]
            , stories      :: StoryPlatform
            } deriving (Show)

data StoryPlatform  = StoryPlatform { activeStories    :: [Story]
                      , completedStories :: [Story]
                      , allStories       :: [Story]
                      } deriving (Show)

data Story = Story { title :: String
             , votes :: [UserId]
             , cards :: [Card]
             } deriving (Show)


initializeUsers = newTVar newUser

newUser = User { name  = "Woodson Delhia"
               , email = "woodsondelhia@gmail.com"
               , id_    = 1
  , rooms = newTVar
               }