wallS  :: DLevel -> Point -> Bool
wallS lvl (x,y) = maybe False isWall (findTileAt (x, y + 1) lvl)
wallS  :: DLevel -> Point -> Bool
wallS lvl (x,y) = maybe False isWall (findTileAt (x, y + 1) lvl)
wallS lvl (x,y) = maybe False isWall (findTileAt (x, y + 1) lvl)