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