diff --git a/HaskBan/Logic.hs b/HaskBan/Logic.hs
index 0e8aeda..79a26d0 100644
--- a/HaskBan/Logic.hs
+++ b/HaskBan/Logic.hs
@@ -25,14 +25,14 @@ module HaskBan.Logic where
   isWall = isCellType Wall
 
   isBox :: Point -> SokoMap -> Bool
-  isBox p sm = (isCellType (Path Box) p sm) ||
+  isBox p sm = (isCellType (Path Box)   p sm) ||
                (isCellType (Target Box) p sm)
 
   isPath :: Point -> SokoMap -> Bool
   isPath = isCellType (Path Empty)
 
   isTarget :: Point -> SokoMap -> Bool
-  isTarget p sm = isCellType (Target Box) p sm ||
+  isTarget p sm = isCellType (Target Box)   p sm ||
                   isCellType (Target Empty) p sm 
 
   isCellType :: CellType -> Point -> SokoMap -> Bool