Complete loop

tp/mine-sweeper/main.hs

@@ -137,12 +137,12 @@ loop i j n b@(Grid xs)
         putStrLn $ show $ Grid $ applyij ( const Selected ) i j xs
         c <- getChar
         case c of
-        ’i ’ -> loop (max (i - 1) 0) j n b -- move caret up
-        ’k ’ -> ... -- move caret down
-        ’j ’ -> ... -- move caret left
-        ’l ’ -> ... -- move caret right
-        ’f ’ -> ... -- toggle flag
-        ’u ’ -> ... -- uncover tile
+        'i' -> loop (max (i - 1) 0) j n b -- move caret up
+        'k' -> loop (min (i + 1) ((length xs) - 1)) j n b -- move caret down
+        'j' -> loop i (max (j - 1) 0) n b -- move caret left
+        'l' -> loop i (min (j + 1) ((length (xs!!0)) - 1)) n b -- move caret right
+        'f' -> Grid $ applyij toggleFlag i j b -- toggle flag
+        'u' -> Grid $ applyij uncover i j b -- uncover tile
         otherwise -> loop i j n b -- do nothing