diff options
| -rw-r--r-- | pl/episode_data.pl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/pl/episode_data.pl b/pl/episode_data.pl index 0246de0..af91d4e 100644 --- a/pl/episode_data.pl +++ b/pl/episode_data.pl @@ -87,7 +87,10 @@ maybe_assert_episode_title(Ep, Title) :- maybe_assert_episode_datum(Ep, Key, Value) :- ( episode_datum(Ep, Key, Value), ! - ; retract_episode_datum(Ep, Key, _), + ; ( episode_datum(Ep, Key, _) + -> retract_episode_datum(Ep, Key, _) + ; true + ), assert_episode_datum(Ep, Key, Value) ). |