From 5ca036975b48ea7fb00c847b7040e644a1f354d5 Mon Sep 17 00:00:00 2001
From: Matej Focko <me@mfocko.xyz>
Date: Wed, 18 Nov 2020 23:24:19 +0100
Subject: [PATCH] Remove unnecessary helper function for xor

Loosing my edge... slowly... but surely...

Signed-off-by: Matej Focko <me@mfocko.xyz>
---
 Internal/Karel.hs | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/Internal/Karel.hs b/Internal/Karel.hs
index 43092a7..82cfec5 100644
--- a/Internal/Karel.hs
+++ b/Internal/Karel.hs
@@ -15,10 +15,6 @@ data Karel = Karel
   }
   deriving (Eq)
 
-xor :: Bool -> Bool -> Bool
-xor True a = not a
-xor False a = a
-
 getHeader :: Karel -> String
 getHeader karel = unlines [
     printf " %8s   %s  %s  %s" "POSITION" "FACING" "BEEP-BAG" "BEEP-POS",
@@ -73,7 +69,7 @@ mapWall karel x y = leftPart <> rightPart
       | northWall && wallEnds && verticalWall = "-|"
       | wallEnds || (northWall && eastWallAbove) = "-+"
       | northWall = "--"
-      | (verticalWall && northWallOnRight) || (eastWall `xor` eastWallAbove) = " +"
+      | (verticalWall && northWallOnRight) || (eastWall /= eastWallAbove) = " +"
       | verticalWall = " |"
       | otherwise = "  "