battleSequence :: Weapon -> Weapon -> Ordering -> IO ()
battleSequence w1 w2 outcome = printText ["You pick:         " ++ show w1 ++ "!",
                                          "Your enemy picks: " ++ show w2 ++ "!",
                                          "",
                                          getReaction w1 w2,
                                          eval outcome]
battleSequence :: Weapon -> Weapon -> Ordering -> IO ()
battleSequence w1 w2 outcome = printText ["You pick:         " ++ show w1 ++ "!",
                                          "Your enemy picks: " ++ show w2 ++ "!",
                                          "",
                                          getReaction w1 w2,
                                          eval outcome]
battleSequence w1 w2 outcome = printText ["You pick:         " ++ show w1 ++ "!",
                                          "Your enemy picks: " ++ show w2 ++ "!",
                                          "",
                                          getReaction w1 w2,
                                          eval outcome]