Меня волнует почему вот это вот не компилируется
fightOneRound robotA robotB = (robotA', robotB')
where robotA' = fight robotA robotB
robotB' = fight robotB robotA
потому что без явных сигнатур 2 ранга компилятор пытается вывести типы 1 ранга, и это не получается