pointInfo' :: Monad m => Point -> (ReaderT Info m) PointInfo
pointInfo' pos = liftM ((! pos) . pointInfoArray) ask
pointInfo' :: Monad m => Point -> (ReaderT Info m) PointInfo
pointInfo' pos = liftM ((! pos) . pointInfoArray) ask
pointInfo' pos = liftM ((! pos) . pointInfoArray) ask