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