added rookie field to Player and Goalie values
This commit is contained in:
Jonathan Lamothe
parent
6c8ec21ffe
commit
2768934c7c
|
|
@ -106,6 +106,7 @@ module Mtlstats.Types (
|
||||||
pNumber,
|
pNumber,
|
||||||
pName,
|
pName,
|
||||||
pPosition,
|
pPosition,
|
||||||
|
pRookie,
|
||||||
pYtd,
|
pYtd,
|
||||||
pLifetime,
|
pLifetime,
|
||||||
-- ** PlayerStats Lenses
|
-- ** PlayerStats Lenses
|
||||||
|
|
@ -115,6 +116,7 @@ module Mtlstats.Types (
|
||||||
-- ** Goalie Lenses
|
-- ** Goalie Lenses
|
||||||
gNumber,
|
gNumber,
|
||||||
gName,
|
gName,
|
||||||
|
gRookie,
|
||||||
gYtd,
|
gYtd,
|
||||||
gLifetime,
|
gLifetime,
|
||||||
-- ** GoalieStats Lenses
|
-- ** GoalieStats Lenses
|
||||||
|
|
@ -399,29 +401,6 @@ data Database = Database
|
||||||
-- ^ Statistics for away games
|
-- ^ Statistics for away games
|
||||||
} deriving (Eq, Show)
|
} deriving (Eq, Show)
|
||||||
|
|
||||||
instance FromJSON Database where
|
|
||||||
parseJSON = withObject "Database" $ \v -> Database
|
|
||||||
<$> v .: "players"
|
|
||||||
<*> v .: "goalies"
|
|
||||||
<*> v .: "games"
|
|
||||||
<*> v .: "home_game_stats"
|
|
||||||
<*> v .: "away_game_stats"
|
|
||||||
|
|
||||||
instance ToJSON Database where
|
|
||||||
toJSON (Database players goalies games hgs ags) = object
|
|
||||||
[ "players" .= players
|
|
||||||
, "goalies" .= goalies
|
|
||||||
, "games" .= games
|
|
||||||
, "home_game_stats" .= hgs
|
|
||||||
, "away_game_stats" .= ags
|
|
||||||
]
|
|
||||||
toEncoding (Database players goalies games hgs ags) = pairs $
|
|
||||||
"players" .= players <>
|
|
||||||
"goalies" .= goalies <>
|
|
||||||
"games" .= games <>
|
|
||||||
"home_game_stats" .= hgs <>
|
|
||||||
"away_game_stats" .= ags
|
|
||||||
|
|
||||||
-- | Represents a (non-goalie) player
|
-- | Represents a (non-goalie) player
|
||||||
data Player = Player
|
data Player = Player
|
||||||
{ _pNumber :: Int
|
{ _pNumber :: Int
|
||||||
|
|
@ -430,35 +409,14 @@ data Player = Player
|
||||||
-- ^ The player's name
|
-- ^ The player's name
|
||||||
, _pPosition :: String
|
, _pPosition :: String
|
||||||
-- ^ The player's position
|
-- ^ The player's position
|
||||||
|
, _pRookie :: Bool
|
||||||
|
-- ^ Indicates that the player is a rookie
|
||||||
, _pYtd :: PlayerStats
|
, _pYtd :: PlayerStats
|
||||||
-- ^ The Player's year-to-date stats
|
-- ^ The Player's year-to-date stats
|
||||||
, _pLifetime :: PlayerStats
|
, _pLifetime :: PlayerStats
|
||||||
-- ^ The player's lifetime stats
|
-- ^ The player's lifetime stats
|
||||||
} deriving (Eq, Show)
|
} deriving (Eq, Show)
|
||||||
|
|
||||||
instance FromJSON Player where
|
|
||||||
parseJSON = withObject "Player" $ \v -> Player
|
|
||||||
<$> v .: "number"
|
|
||||||
<*> v .: "name"
|
|
||||||
<*> v .: "position"
|
|
||||||
<*> v .: "ytd"
|
|
||||||
<*> v .: "lifetime"
|
|
||||||
|
|
||||||
instance ToJSON Player where
|
|
||||||
toJSON (Player num name pos ytd lt) = object
|
|
||||||
[ "number" .= num
|
|
||||||
, "name" .= name
|
|
||||||
, "position" .= pos
|
|
||||||
, "ytd" .= ytd
|
|
||||||
, "lifetime" .= lt
|
|
||||||
]
|
|
||||||
toEncoding (Player num name pos ytd lt) = pairs $
|
|
||||||
"number" .= num <>
|
|
||||||
"name" .= name <>
|
|
||||||
"position" .= pos <>
|
|
||||||
"ytd" .= ytd <>
|
|
||||||
"lifetime" .= lt
|
|
||||||
|
|
||||||
-- | Represents a (non-goalie) player's stats
|
-- | Represents a (non-goalie) player's stats
|
||||||
data PlayerStats = PlayerStats
|
data PlayerStats = PlayerStats
|
||||||
{ _psGoals :: Int
|
{ _psGoals :: Int
|
||||||
|
|
@ -469,55 +427,20 @@ data PlayerStats = PlayerStats
|
||||||
-- ^ The number of penalty minutes
|
-- ^ The number of penalty minutes
|
||||||
} deriving (Eq, Show)
|
} deriving (Eq, Show)
|
||||||
|
|
||||||
instance FromJSON PlayerStats where
|
|
||||||
parseJSON = withObject "PlayerStats" $ \v -> PlayerStats
|
|
||||||
<$> v .: "goals"
|
|
||||||
<*> v .: "assists"
|
|
||||||
<*> v .: "penalty_mins"
|
|
||||||
|
|
||||||
instance ToJSON PlayerStats where
|
|
||||||
toJSON (PlayerStats g a pm) = object
|
|
||||||
[ "goals" .= g
|
|
||||||
, "assists" .= a
|
|
||||||
, "penalty_mins" .= pm
|
|
||||||
]
|
|
||||||
toEncoding (PlayerStats g a pm) = pairs $
|
|
||||||
"goals" .= g <>
|
|
||||||
"assists" .= a <>
|
|
||||||
"penalty_mins" .= pm
|
|
||||||
|
|
||||||
-- | Represents a goalie
|
-- | Represents a goalie
|
||||||
data Goalie = Goalie
|
data Goalie = Goalie
|
||||||
{ _gNumber :: Int
|
{ _gNumber :: Int
|
||||||
-- ^ The goalie's number
|
-- ^ The goalie's number
|
||||||
, _gName :: String
|
, _gName :: String
|
||||||
-- ^ The goalie's name
|
-- ^ The goalie's name
|
||||||
|
, _gRookie :: Bool
|
||||||
|
-- ^ Indicates that the goalie is a rookie
|
||||||
, _gYtd :: GoalieStats
|
, _gYtd :: GoalieStats
|
||||||
-- ^ The goalie's year-to-date stats
|
-- ^ The goalie's year-to-date stats
|
||||||
, _gLifetime :: GoalieStats
|
, _gLifetime :: GoalieStats
|
||||||
-- ^ The goalie's lifetime stats
|
-- ^ The goalie's lifetime stats
|
||||||
} deriving (Eq, Show)
|
} deriving (Eq, Show)
|
||||||
|
|
||||||
instance FromJSON Goalie where
|
|
||||||
parseJSON = withObject "Goalie" $ \v -> Goalie
|
|
||||||
<$> v .: "number"
|
|
||||||
<*> v .: "name"
|
|
||||||
<*> v .: "ytd"
|
|
||||||
<*> v .: "lifetime"
|
|
||||||
|
|
||||||
instance ToJSON Goalie where
|
|
||||||
toJSON (Goalie num name ytd lt) = object
|
|
||||||
[ "number" .= num
|
|
||||||
, "name" .= name
|
|
||||||
, "ytd" .= ytd
|
|
||||||
, "lifetime" .= lt
|
|
||||||
]
|
|
||||||
toEncoding (Goalie num name ytd lt) = pairs $
|
|
||||||
"number" .= num <>
|
|
||||||
"name" .= name <>
|
|
||||||
"ytd" .= ytd <>
|
|
||||||
"lifetime" .= lt
|
|
||||||
|
|
||||||
-- | Represents a goalie's stats
|
-- | Represents a goalie's stats
|
||||||
data GoalieStats = GoalieStats
|
data GoalieStats = GoalieStats
|
||||||
{ _gsGames :: Int
|
{ _gsGames :: Int
|
||||||
|
|
@ -536,35 +459,6 @@ data GoalieStats = GoalieStats
|
||||||
-- ^ The number of ties
|
-- ^ The number of ties
|
||||||
} deriving (Eq, Show)
|
} deriving (Eq, Show)
|
||||||
|
|
||||||
instance FromJSON GoalieStats where
|
|
||||||
parseJSON = withObject "GoalieStats" $ \v -> GoalieStats
|
|
||||||
<$> v .:? "games" .!= 0
|
|
||||||
<*> v .:? "mins_played" .!= 0
|
|
||||||
<*> v .:? "goals_allowed" .!= 0
|
|
||||||
<*> v .:? "shutouts" .!= 0
|
|
||||||
<*> v .:? "wins" .!= 0
|
|
||||||
<*> v .:? "losses" .!= 0
|
|
||||||
<*> v .:? "ties" .!= 0
|
|
||||||
|
|
||||||
instance ToJSON GoalieStats where
|
|
||||||
toJSON (GoalieStats g m a s w l t) = object
|
|
||||||
[ "games" .= g
|
|
||||||
, "mins_played" .= m
|
|
||||||
, "goals_allowed" .= a
|
|
||||||
, "shutouts" .= s
|
|
||||||
, "wins" .= w
|
|
||||||
, "losses" .= l
|
|
||||||
, "ties" .= t
|
|
||||||
]
|
|
||||||
toEncoding (GoalieStats g m a s w l t) = pairs $
|
|
||||||
"games" .= g <>
|
|
||||||
"mins_played" .= m <>
|
|
||||||
"goals_allowed" .= a <>
|
|
||||||
"shutouts" .= s <>
|
|
||||||
"wins" .= w <>
|
|
||||||
"losses" .= l <>
|
|
||||||
"ties" .= t
|
|
||||||
|
|
||||||
-- | Game statistics
|
-- | Game statistics
|
||||||
data GameStats = GameStats
|
data GameStats = GameStats
|
||||||
{ _gmsWins :: Int
|
{ _gmsWins :: Int
|
||||||
|
|
@ -579,29 +473,6 @@ data GameStats = GameStats
|
||||||
-- ^ Goals against the team
|
-- ^ Goals against the team
|
||||||
} deriving (Eq, Show)
|
} deriving (Eq, Show)
|
||||||
|
|
||||||
instance FromJSON GameStats where
|
|
||||||
parseJSON = withObject "GameStats" $ \v -> GameStats
|
|
||||||
<$> v .: "wins"
|
|
||||||
<*> v .: "losses"
|
|
||||||
<*> v .: "overtime"
|
|
||||||
<*> v .: "goals_for"
|
|
||||||
<*> v .: "goals_against"
|
|
||||||
|
|
||||||
instance ToJSON GameStats where
|
|
||||||
toJSON (GameStats w l ot gf ga) = object
|
|
||||||
[ "wins" .= w
|
|
||||||
, "losses" .= l
|
|
||||||
, "overtime" .= ot
|
|
||||||
, "goals_for" .= gf
|
|
||||||
, "goals_against" .= ga
|
|
||||||
]
|
|
||||||
toEncoding (GameStats w l ot gf ga) = pairs $
|
|
||||||
"wins" .= w <>
|
|
||||||
"losses" .= l <>
|
|
||||||
"overtime" .= ot <>
|
|
||||||
"goals_for" .= gf <>
|
|
||||||
"goals_against" .= ga
|
|
||||||
|
|
||||||
-- | Defines a user prompt
|
-- | Defines a user prompt
|
||||||
data Prompt = Prompt
|
data Prompt = Prompt
|
||||||
{ promptDrawer :: ProgState -> C.Update ()
|
{ promptDrawer :: ProgState -> C.Update ()
|
||||||
|
|
@ -655,6 +526,147 @@ makeLenses ''Goalie
|
||||||
makeLenses ''GoalieStats
|
makeLenses ''GoalieStats
|
||||||
makeLenses ''GameStats
|
makeLenses ''GameStats
|
||||||
|
|
||||||
|
instance FromJSON Database where
|
||||||
|
parseJSON = withObject "Database" $ \v -> Database
|
||||||
|
<$> v .: "players"
|
||||||
|
<*> v .: "goalies"
|
||||||
|
<*> v .: "games"
|
||||||
|
<*> v .: "home_game_stats"
|
||||||
|
<*> v .: "away_game_stats"
|
||||||
|
|
||||||
|
instance ToJSON Database where
|
||||||
|
toJSON (Database players goalies games hgs ags) = object
|
||||||
|
[ "players" .= players
|
||||||
|
, "goalies" .= goalies
|
||||||
|
, "games" .= games
|
||||||
|
, "home_game_stats" .= hgs
|
||||||
|
, "away_game_stats" .= ags
|
||||||
|
]
|
||||||
|
toEncoding (Database players goalies games hgs ags) = pairs $
|
||||||
|
"players" .= players <>
|
||||||
|
"goalies" .= goalies <>
|
||||||
|
"games" .= games <>
|
||||||
|
"home_game_stats" .= hgs <>
|
||||||
|
"away_game_stats" .= ags
|
||||||
|
|
||||||
|
instance FromJSON Player where
|
||||||
|
parseJSON = withObject "Player" $ \v -> Player
|
||||||
|
<$> v .: "number"
|
||||||
|
<*> v .: "name"
|
||||||
|
<*> v .: "position"
|
||||||
|
<*> v .:? "rookie" .!= False
|
||||||
|
<*> v .:? "ytd" .!= newPlayerStats
|
||||||
|
<*> v .:? "lifetime" .!= newPlayerStats
|
||||||
|
|
||||||
|
instance ToJSON Player where
|
||||||
|
toJSON (Player num name pos rk ytd lt) = object
|
||||||
|
[ "number" .= num
|
||||||
|
, "name" .= name
|
||||||
|
, "position" .= pos
|
||||||
|
, "rookie" .= rk
|
||||||
|
, "ytd" .= ytd
|
||||||
|
, "lifetime" .= lt
|
||||||
|
]
|
||||||
|
toEncoding (Player num name pos rk ytd lt) = pairs $
|
||||||
|
"number" .= num <>
|
||||||
|
"name" .= name <>
|
||||||
|
"position" .= pos <>
|
||||||
|
"rookie" .= rk <>
|
||||||
|
"ytd" .= ytd <>
|
||||||
|
"lifetime" .= lt
|
||||||
|
|
||||||
|
instance FromJSON PlayerStats where
|
||||||
|
parseJSON = withObject "PlayerStats" $ \v -> PlayerStats
|
||||||
|
<$> v .:? "goals" .!= 0
|
||||||
|
<*> v .:? "assists" .!= 0
|
||||||
|
<*> v .:? "penalty_mins" .!= 0
|
||||||
|
|
||||||
|
instance ToJSON PlayerStats where
|
||||||
|
toJSON (PlayerStats g a pm) = object
|
||||||
|
[ "goals" .= g
|
||||||
|
, "assists" .= a
|
||||||
|
, "penalty_mins" .= pm
|
||||||
|
]
|
||||||
|
toEncoding (PlayerStats g a pm) = pairs $
|
||||||
|
"goals" .= g <>
|
||||||
|
"assists" .= a <>
|
||||||
|
"penalty_mins" .= pm
|
||||||
|
|
||||||
|
instance FromJSON Goalie where
|
||||||
|
parseJSON = withObject "Goalie" $ \v -> Goalie
|
||||||
|
<$> v .: "number"
|
||||||
|
<*> v .: "name"
|
||||||
|
<*> v .:? "rookie" .!= False
|
||||||
|
<*> v .:? "ytd" .!= newGoalieStats
|
||||||
|
<*> v .:? "lifetime" .!= newGoalieStats
|
||||||
|
|
||||||
|
instance ToJSON Goalie where
|
||||||
|
toJSON (Goalie num name rk ytd lt) = object
|
||||||
|
[ "number" .= num
|
||||||
|
, "name" .= name
|
||||||
|
, "ytd" .= ytd
|
||||||
|
, "rookie" .= rk
|
||||||
|
, "lifetime" .= lt
|
||||||
|
]
|
||||||
|
toEncoding (Goalie num name rk ytd lt) = pairs $
|
||||||
|
"number" .= num <>
|
||||||
|
"name" .= name <>
|
||||||
|
"rookie" .= rk <>
|
||||||
|
"ytd" .= ytd <>
|
||||||
|
"lifetime" .= lt
|
||||||
|
|
||||||
|
instance FromJSON GoalieStats where
|
||||||
|
parseJSON = withObject "GoalieStats" $ \v -> GoalieStats
|
||||||
|
<$> v .:? "games" .!= 0
|
||||||
|
<*> v .:? "mins_played" .!= 0
|
||||||
|
<*> v .:? "goals_allowed" .!= 0
|
||||||
|
<*> v .:? "shutouts" .!= 0
|
||||||
|
<*> v .:? "wins" .!= 0
|
||||||
|
<*> v .:? "losses" .!= 0
|
||||||
|
<*> v .:? "ties" .!= 0
|
||||||
|
|
||||||
|
instance ToJSON GoalieStats where
|
||||||
|
toJSON (GoalieStats g m a s w l t) = object
|
||||||
|
[ "games" .= g
|
||||||
|
, "mins_played" .= m
|
||||||
|
, "goals_allowed" .= a
|
||||||
|
, "shutouts" .= s
|
||||||
|
, "wins" .= w
|
||||||
|
, "losses" .= l
|
||||||
|
, "ties" .= t
|
||||||
|
]
|
||||||
|
toEncoding (GoalieStats g m a s w l t) = pairs $
|
||||||
|
"games" .= g <>
|
||||||
|
"mins_played" .= m <>
|
||||||
|
"goals_allowed" .= a <>
|
||||||
|
"shutouts" .= s <>
|
||||||
|
"wins" .= w <>
|
||||||
|
"losses" .= l <>
|
||||||
|
"ties" .= t
|
||||||
|
|
||||||
|
instance FromJSON GameStats where
|
||||||
|
parseJSON = withObject "GameStats" $ \v -> GameStats
|
||||||
|
<$> v .: "wins"
|
||||||
|
<*> v .: "losses"
|
||||||
|
<*> v .: "overtime"
|
||||||
|
<*> v .: "goals_for"
|
||||||
|
<*> v .: "goals_against"
|
||||||
|
|
||||||
|
instance ToJSON GameStats where
|
||||||
|
toJSON (GameStats w l ot gf ga) = object
|
||||||
|
[ "wins" .= w
|
||||||
|
, "losses" .= l
|
||||||
|
, "overtime" .= ot
|
||||||
|
, "goals_for" .= gf
|
||||||
|
, "goals_against" .= ga
|
||||||
|
]
|
||||||
|
toEncoding (GameStats w l ot gf ga) = pairs $
|
||||||
|
"wins" .= w <>
|
||||||
|
"losses" .= l <>
|
||||||
|
"overtime" .= ot <>
|
||||||
|
"goals_for" .= gf <>
|
||||||
|
"goals_against" .= ga
|
||||||
|
|
||||||
gameStateL :: Lens' ProgMode GameState
|
gameStateL :: Lens' ProgMode GameState
|
||||||
gameStateL = lens
|
gameStateL = lens
|
||||||
(\case
|
(\case
|
||||||
|
|
@ -782,6 +794,7 @@ newPlayer num name pos = Player
|
||||||
{ _pNumber = num
|
{ _pNumber = num
|
||||||
, _pName = name
|
, _pName = name
|
||||||
, _pPosition = pos
|
, _pPosition = pos
|
||||||
|
, _pRookie = True
|
||||||
, _pYtd = newPlayerStats
|
, _pYtd = newPlayerStats
|
||||||
, _pLifetime = newPlayerStats
|
, _pLifetime = newPlayerStats
|
||||||
}
|
}
|
||||||
|
|
@ -804,6 +817,7 @@ newGoalie
|
||||||
newGoalie num name = Goalie
|
newGoalie num name = Goalie
|
||||||
{ _gNumber = num
|
{ _gNumber = num
|
||||||
, _gName = name
|
, _gName = name
|
||||||
|
, _gRookie = True
|
||||||
, _gYtd = newGoalieStats
|
, _gYtd = newGoalieStats
|
||||||
, _gLifetime = newGoalieStats
|
, _gLifetime = newGoalieStats
|
||||||
}
|
}
|
||||||
|
|
|
||||||
|
|
@ -36,7 +36,7 @@ import Data.Aeson.Types (Value (Object))
|
||||||
import qualified Data.HashMap.Strict as HM
|
import qualified Data.HashMap.Strict as HM
|
||||||
import Data.Ratio ((%))
|
import Data.Ratio ((%))
|
||||||
import Lens.Micro (Lens', (&), (^.), (.~), (?~))
|
import Lens.Micro (Lens', (&), (^.), (.~), (?~))
|
||||||
import System.Random (randomRIO)
|
import System.Random (randomIO, randomRIO)
|
||||||
import Test.Hspec (Spec, context, describe, it, shouldBe)
|
import Test.Hspec (Spec, context, describe, it, shouldBe)
|
||||||
|
|
||||||
import Mtlstats.Config
|
import Mtlstats.Config
|
||||||
|
|
@ -271,6 +271,7 @@ lensSpec lens getters setters = do
|
||||||
|
|
||||||
player :: Player
|
player :: Player
|
||||||
player = newPlayer 1 "Joe" "centre"
|
player = newPlayer 1 "Joe" "centre"
|
||||||
|
& pRookie .~ False
|
||||||
& pYtd .~ playerStats 1
|
& pYtd .~ playerStats 1
|
||||||
& pLifetime .~ playerStats 2
|
& pLifetime .~ playerStats 2
|
||||||
|
|
||||||
|
|
@ -279,6 +280,7 @@ playerJSON = Object $ HM.fromList
|
||||||
[ ( "number", toJSON (1 :: Int) )
|
[ ( "number", toJSON (1 :: Int) )
|
||||||
, ( "name", toJSON ("Joe" :: String) )
|
, ( "name", toJSON ("Joe" :: String) )
|
||||||
, ( "position", toJSON ("centre" :: String) )
|
, ( "position", toJSON ("centre" :: String) )
|
||||||
|
, ( "rookie", toJSON False )
|
||||||
, ( "ytd", playerStatsJSON 1 )
|
, ( "ytd", playerStatsJSON 1 )
|
||||||
, ( "lifetime", playerStatsJSON 2 )
|
, ( "lifetime", playerStatsJSON 2 )
|
||||||
]
|
]
|
||||||
|
|
@ -298,6 +300,7 @@ playerStatsJSON n = Object $ HM.fromList
|
||||||
|
|
||||||
goalie :: Goalie
|
goalie :: Goalie
|
||||||
goalie = newGoalie 1 "Joe"
|
goalie = newGoalie 1 "Joe"
|
||||||
|
& gRookie .~ False
|
||||||
& gYtd .~ goalieStats 1
|
& gYtd .~ goalieStats 1
|
||||||
& gLifetime .~ goalieStats 2
|
& gLifetime .~ goalieStats 2
|
||||||
|
|
||||||
|
|
@ -305,6 +308,7 @@ goalieJSON :: Value
|
||||||
goalieJSON = Object $ HM.fromList
|
goalieJSON = Object $ HM.fromList
|
||||||
[ ( "number", toJSON (1 :: Int) )
|
[ ( "number", toJSON (1 :: Int) )
|
||||||
, ( "name", toJSON ("Joe" :: String ) )
|
, ( "name", toJSON ("Joe" :: String ) )
|
||||||
|
, ( "rookie", toJSON False )
|
||||||
, ( "ytd", goalieStatsJSON 1 )
|
, ( "ytd", goalieStatsJSON 1 )
|
||||||
, ( "lifetime", goalieStatsJSON 2 )
|
, ( "lifetime", goalieStatsJSON 2 )
|
||||||
]
|
]
|
||||||
|
|
@ -843,6 +847,7 @@ makePlayer = Player
|
||||||
<$> makeNum
|
<$> makeNum
|
||||||
<*> makeName
|
<*> makeName
|
||||||
<*> makeName
|
<*> makeName
|
||||||
|
<*> makeBool
|
||||||
<*> makePlayerStats
|
<*> makePlayerStats
|
||||||
<*> makePlayerStats
|
<*> makePlayerStats
|
||||||
|
|
||||||
|
|
@ -851,6 +856,7 @@ makeGoalie :: IO Goalie
|
||||||
makeGoalie = Goalie
|
makeGoalie = Goalie
|
||||||
<$> makeNum
|
<$> makeNum
|
||||||
<*> makeName
|
<*> makeName
|
||||||
|
<*> makeBool
|
||||||
<*> makeGoalieStats
|
<*> makeGoalieStats
|
||||||
<*> makeGoalieStats
|
<*> makeGoalieStats
|
||||||
|
|
||||||
|
|
@ -875,6 +881,9 @@ makeGoalieStats = GoalieStats
|
||||||
makeNum :: IO Int
|
makeNum :: IO Int
|
||||||
makeNum = randomRIO (1, 10)
|
makeNum = randomRIO (1, 10)
|
||||||
|
|
||||||
|
makeBool :: IO Bool
|
||||||
|
makeBool = randomIO
|
||||||
|
|
||||||
makeName :: IO String
|
makeName :: IO String
|
||||||
makeName = replicateM 10 $ randomRIO ('A', 'Z')
|
makeName = replicateM 10 $ randomRIO ('A', 'Z')
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue
Block a user