documentor: Fixed editing status on failed write

diff --git a/documentor/src/Documentor.ec b/documentor/src/Documentor.ec
index ba8fbb8..2cc1a7c 100644 (file)
--- a/documentor/src/Documentor.ec
+++ b/documentor/src/Documentor.ec
@@ -2240,10 +2240,10 @@ class HelpView : HTMLView
       GetLastDirectory(location, fileName);
       StripLastDirectory(location, directory);
       archive = ArchiveOpen(archiveFile, { true } );
-      if(archive)
+      // if(archive)
       {
          TempFile f { };
-         ArchiveDir dir = archive.OpenDirectory(directory, null, replace);
+         ArchiveDir dir = archive ? archive.OpenDirectory(directory, null, replace) : null;
          Block block;
          bool empty = true;
          for(block = textBlock.parent.subBlocks.first; block; block = block.next)
@@ -2265,7 +2265,8 @@ class HelpView : HTMLView
             }
          }
          f.Seek(0, start);
-         dir.AddFromFile(fileName, f, null, replace, 0, null, null);
+         if(dir)
+            dir.AddFromFile(fileName, f, null, replace, 0, null, null);
          delete dir;
          delete archive;
          delete f;