Fixed hasWon so you can actually win when you are supposed to.

wolfwood · Sep 25, 2010 · 4b59493 · 4b59493
1 parent 9c87630
commit 4b59493
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/behind.hs b/behind.hs
@@ -95,7 +95,7 @@ drawWorld (MakeWorld board (Player _ _ (x,y))) = do
 	refresh
 
 hasWon :: World -> Bool
-hasWon (MakeWorld board (Player _ _ (x,y))) = board !! x !! y == Goal
+hasWon (MakeWorld board (Player _ _ (x,y))) = board !! y !! x == Goal
 
 gameLoop :: Int -> World -> IO World
 gameLoop n w