randomBoard :: Width -> Height -> StdGen -> Board
randomBoard w h = U.take (w * h) . U.unfoldr (Just . randomR (0, 1))
randomBoard :: Width -> Height -> StdGen -> Board
randomBoard w h = U.take (w * h) . U.unfoldr (Just . randomR (0, 1))
randomBoard w h = U.take (w * h) . U.unfoldr (Just . randomR (0, 1))