weaponsSelection :: GameMode -> IO ()
weaponsSelection gameMode = let numberWeapon wpn num = show num ++ ". " ++ show wpn
                                weapons   = weaponsIn gameMode
                                numbered  = zipWith numberWeapon weapons [1..]
                                formatted = indent . padRight <$> numbered
                            in printText $ ("<> " ++ show gameMode ++ " <>")
                                         : divider
                                         : "- Choose your weapon -"
                                         : divider
                                         : formatted
weaponsSelection :: GameMode -> IO ()
weaponsSelection gameMode = let numberWeapon wpn num = show num ++ ". " ++ show wpn
                                weapons   = weaponsIn gameMode
                                numbered  = zipWith numberWeapon weapons [1..]
                                formatted = indent . padRight <$> numbered
                            in printText $ ("<> " ++ show gameMode ++ " <>")
                                         : divider
                                         : "- Choose your weapon -"
                                         : divider
                                         : formatted
weaponsSelection gameMode = let numberWeapon wpn num = show num ++ ". " ++ show wpn
                                weapons   = weaponsIn gameMode
                                numbered  = zipWith numberWeapon weapons [1..]
                                formatted = indent . padRight <$> numbered
                            in printText $ ("<> " ++ show gameMode ++ " <>")
                                         : divider
                                         : "- Choose your weapon -"
                                         : divider
                                         : formatted