Minor formatting

norm2782 · Aug 25, 2010 · 881f7e5 · 881f7e5
1 parent a09de75
commit 881f7e5
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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