From 8a9d79257565006cddeb4cf1d63ea9f850e4415b Mon Sep 17 00:00:00 2001
From: Slash <daniele.baracchi@gmail.com>
Date: Sun, 9 Aug 2015 18:06:54 +0200
Subject: [PATCH] cmdToString fix

---
 src/Datatypes/Game.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Datatypes/Game.hs b/src/Datatypes/Game.hs
index 7ad91a8..406ea95 100644
--- a/src/Datatypes/Game.hs
+++ b/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"