Make things shine

changelog-tool/changelog.pony

@@ -87,9 +87,15 @@ class Release
   fun ref add_entry(section_name: String, entry: String) ? =>
     let section =
       match section_name
-      | "fixed" => try fixed as Section else fixed = Section._empty(Fixed); fixed as Section end
-      | "added" => try added as Section else added = Section._empty(Added); added as Section end
-      | "changed" => try changed as Section else changed = Section._empty(Changed); changed as Section end
+      | "fixed" =>
+        if fixed is None then fixed = Section._empty(Fixed) end
+        fixed as Section
+      | "added" =>
+        if added is None then added = Section._empty(Added) end
+        added as Section
+      | "changed" =>
+        if changed is None then changed = Section._empty(Changed) end
+        changed as Section
       else error
       end
     section.entries.push("- " + entry)

changelog-tool/main.pony

@@ -75,7 +75,7 @@ actor Main
 	  "Add a new entry at the end of the section",
 	  [edit],
 	  [ ArgSpec.string("section")
-            ArgSpec.string("entry")
+      ArgSpec.string("entry")
 	  ])?
       ])?
       .> add_help("help", "Print this message and exit")?
@@ -103,7 +103,9 @@ actor Main
       cmd_release(
         path, filename, cmd.arg("version").string(), cmd.option("edit").bool())
     | "changelog-tool/add" =>
-      cmd_add(path, filename, cmd.arg("section").string(), cmd.arg("entry").string(), cmd.option("edit").bool())
+      cmd_add(
+        path, filename, cmd.arg("section").string(),
+        cmd.arg("entry").string(),cmd.option("edit").bool())
     else
       err("unknown command: " + cmd.fullname())
       please_report()
@@ -191,9 +193,9 @@ actor Main
       edit_or_print(
         filepath,
         edit,
-	Changelog(parse(filepath, filename)?)?
-	  .> add_entry(section, entry)?
-	  .string())
+        Changelog(parse(filepath, filename)?)?
+          .> add_entry(section, entry)?
+          .string())
     else
       err("unable add a new changelog entry")
     end

tests/main.pony

@@ -333,7 +333,6 @@ class _ReleaseTestAfterAddingSomeEntries
       match r
       | let ast: AST =>
         _h.log(recover val _Printer(ast) end)
-        // _h.log(Changelog(ast)?.string())
         let changelog = Changelog(ast)?
           .> add_entry("fixed", "We made some fixes...\n")?
           .> add_entry("fixed", "Oh, and we made a final one.\n")?