diff --git a/SuperKarel.hs b/SuperKarel.hs
index b83f4ab..f431500 100644
--- a/SuperKarel.hs
+++ b/SuperKarel.hs
@@ -24,25 +24,25 @@ notFacing :: Direction -> Karel -> Bool
 notFacing dir = not . facing dir
 
 notFacingNorth :: Karel -> Bool
-notFacingNorth = not . facingNorth
+notFacingNorth = notFacing North
 
 facingSouth :: Karel -> Bool
 facingSouth = facing South
 
 notFacingSouth :: Karel -> Bool
-notFacingSouth = not . facingSouth
+notFacingSouth = notFacing South
 
 facingEast :: Karel -> Bool
 facingEast = facing East
 
 notFacingEast :: Karel -> Bool
-notFacingEast = not . facingEast
+notFacingEast = notFacing East
 
 facingWest :: Karel -> Bool
 facingWest = facing West
 
 notFacingWest :: Karel -> Bool
-notFacingWest = not . facingWest
+notFacingWest = notFacing West
 
 noBeepersInBag :: Karel -> Bool
 noBeepersInBag = not . beepersInBag