Monitor the newly compacted view file
diff --git a/src/couch_mrview_compactor.erl b/src/couch_mrview_compactor.erl
index f8293bd..735b790 100644
--- a/src/couch_mrview_compactor.erl
+++ b/src/couch_mrview_compactor.erl
@@ -174,6 +174,7 @@
} = NewState,
link(NewState#mrst.fd),
+ Ref = erlang:monitor(process, NewState#mrst.fd),
RootDir = couch_index_util:root_dir(),
IndexFName = couch_mrview_util:index_file(DbName, Sig),
@@ -184,4 +185,4 @@
unlink(OldState#mrst.fd),
erlang:demonitor(OldState#mrst.fd_monitor, [flush]),
- {ok, NewState}.
+ {ok, NewState#mrst{fd_monitor=Ref}}.