halma-telegram-bot/src/Game/Halma/TelegramBot/Model/MoveCmd.hs
Use newtype instead of data Open
Open
data TargetModifier
= TargetModifier
{ _unTargetModifier :: Int
} deriving (Show, Eq, Ord)- Read upRead up
- Exclude checks
Found
data TargetModifier
= TargetModifier {_unTargetModifier :: Int}
deriving (Show, Eq, Ord)Perhaps
newtype TargetModifier
= TargetModifier {_unTargetModifier :: Int}
deriving (Show, Eq, Ord)Applying this change:
- decreases laziness
Use String Open
Open
pieceNumberToChars :: PieceNumber -> [Char]- Read upRead up
- Exclude checks
Found
PieceNumber -> [Char]Perhaps
PieceNumber -> String