Set exit status code on file and parse error

Author: strika

src/alas.janet

@@ -9,12 +9,15 @@
 (import ./plan/parser :as plan_parser)
 (import ./plan/serializer :as plan_serializer)
 
-(defn- print-errors [errors]
-  (each error errors (print (string error "."))))
+(defn- print-errors [errors exit-status-code]
+  (each error errors (print (string error ".")))
+  (os/exit exit-status-code))
 
 (def exit-status-codes
   {:error 1
-   :plan-path-missing 2})
+   :plan-path-missing 2
+   :file-error 3
+   :parse-error 4})
 
 # Keep commands sorted alphabetically.
 (def argparse-params
@@ -46,13 +49,13 @@
   (def load-file-result (file_repository/load file-path))
   (def errors (load-file-result :errors))
   (if errors
-    (print-errors errors)
+    (print-errors errors (exit-status-codes :file-error))
     (let [plan-string (load-file-result :text)
           parse-result (plan_parser/parse plan-string)
           parse-errors (parse-result :errors)
           plan (parse-result :plan)]
       (if parse-errors
-        (print-errors parse-errors)
+        (print-errors parse-errors (exit-status-codes :parse-error))
         (let [serialize-empty-inbox (plan_parser/serialize-empty-inbox? plan-string)
               new-plan (run-commands plan file-path arguments)
               new-plan-string (plan_serializer/serialize