added missing haddock comments

This commit is contained in:
Jonathan Lamothe
2019-08-23 10:10:49 -04:00
parent 2c77053bbe
commit cff6c19ed8

View File

@@ -110,14 +110,19 @@ type Action a = StateT ProgState Curses a
-- | Represents the program state -- | Represents the program state
data ProgState = ProgState data ProgState = ProgState
{ _database :: Database { _database :: Database
-- ^ The data to be saved
, _progMode :: ProgMode , _progMode :: ProgMode
-- ^ The program's mode
} deriving (Eq, Show) } deriving (Eq, Show)
-- | The game state -- | The game state
data GameState = GameState data GameState = GameState
{ _gameType :: Maybe GameType { _gameType :: Maybe GameType
-- ^ The type of game (home/away)
, _homeScore :: Maybe Int , _homeScore :: Maybe Int
-- ^ The home team's score
, _awayScore :: Maybe Int , _awayScore :: Maybe Int
-- ^ The away team's score
} deriving (Eq, Show) } deriving (Eq, Show)
-- | The program mode -- | The program mode