cmdToString fix

src/Datatypes/Game.hs

@@ -49,9 +49,9 @@ new b us = Game {
                 } where (c:cs) = map (flip Unit.centeredIn b) us
 
 phraseConverter :: [Command] -> String
-phraseConverter s = if s == reverse [MoveE, MoveSW, MoveW]
+phraseConverter s = if s == [MoveE, MoveSW, MoveW]
                         then "ei!"
-                        else if s == reverse [MoveSW, MoveSW, MoveW, MoveSE, MoveSW, MoveSW, MoveW]
+                        else if s == [MoveSW, MoveSW, MoveW, MoveSE, MoveSW, MoveSW, MoveW]
                                  then "ia ! ia!"
                                  else "PUPPA"