refactor: added pragmas to sortSavesCommand procedure

FossilOrigin-Name: 83882da817bcba17bb3b2757714e4b1e42adce64fa9a74b67e4c90604549a4cb
thindil · Sep 17, 2024 · ba443c3 · ba443c3
1 parent 651c50b
commit ba443c3
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/nim/src/ui/mainmenu.nim b/nim/src/ui/mainmenu.nim
@@ -210,8 +210,12 @@ proc showMainMenuCommand(clientData: cint; interp: PInterp; argc: cint;
   return tclOk
 
 proc sortSavesCommand(clientData: cint; interp: PInterp; argc: cint;
-    argv: cstringArray): TclResults {.exportc.} =
-  let column = getColumnNumber(table = loadTable, xPosition = ($argv[1]).parseInt)
+    argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [
+    WriteIOEffect, TimeEffect, RootEffect], exportc.} =
+  let column = try:
+      getColumnNumber(table = loadTable, xPosition = ($argv[1]).parseInt)
+    except:
+      return showError(message = "Can't get the column number.")
   case column
   of 1:
     if saveSortOrder == playerAsc: