Minesweeper TDD Kata in Haskell