From 39092ee13b44573d1b8111a5d2ee1d46990f239f Mon Sep 17 00:00:00 2001
From: glx <glx@openttd.org>
Date: Sat, 9 May 2020 23:41:01 +0200
Subject: Fix #8119: Update docking area when clearing a shore rail tile

---
 src/rail_cmd.cpp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/rail_cmd.cpp b/src/rail_cmd.cpp
index 527e02cb8..162fe9779 100644
--- a/src/rail_cmd.cpp
+++ b/src/rail_cmd.cpp
@@ -1850,7 +1850,11 @@ static CommandCost ClearTile_Track(TileIndex tile, DoCommandFlag flags)
 				if (ret.Failed()) return ret;
 
 				/* The track was removed, and left a coast tile. Now also clear the water. */
-				if (flags & DC_EXEC) DoClearSquare(tile);
+				if (flags & DC_EXEC) {
+					bool remove = IsDockingTile(tile);
+					DoClearSquare(tile);
+					if (remove) RemoveDockingTile(tile);
+				}
 				cost.AddCost(_price[PR_CLEAR_WATER]);
 			}
 
-- 
cgit v1.2.3-54-g00ecf