|
|
@@ -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
|
|
|
|
|
|
|
