import Data.Array

mineLocation :: Array (Int, Int) Int -> Maybe (Int, Int)
mineLocation arr = if mineIndex == []
                   then Nothing
                   else Just $ head mineIndex
                   where mineIndex = [ind | ind <- indices arr, arr ! ind == 1]