Finished libgit integration

backend/main.scm

@@ -1,6 +1,10 @@
 
 (use-modules (artanis artanis)
 	     (csv csv)
+             (git bindings)
+             (git clone)
+             (git repository)
+             (git remote)
              (ice-9 popen)
              (ice-9 regex)
              (ice-9 string-fun)
@@ -18,6 +22,7 @@
 
 (include "./src/debugging.scm")
 (include "./src/repo.scm")
+(git:init)
 (include "./src/associations.scm")
 (include "./src/scheduler.scm")
 (include "./src/spawn_interaction.scm")

backend/src/repo.scm

@@ -1,6 +1,3 @@
-(use-modules (git clone)
-             (git repository)
-             (git remote))
 
 (define %new-repo-url "https://github.com/ccodwg/CovidTimelineCanada")
 (define %repo-url "https://github.com/ccodwg/Covid19Canada.git")
@@ -27,5 +24,7 @@
       (init-repo)))
 
 (define (git:init)
+  (libgit2-init!)
   (if (not (repo-exists?))
       (init-repo)))
+

backend/src/scheduler.scm

@@ -91,7 +91,7 @@
                      (prov-terse . ,(assq-ref plist 'prov-code))
                      (last-7 . ,(sum-first-n 7 (assq-ref plist 'reports)))
                      (last-14 . ,(sum-first-n 14 (assq-ref plist 'reports)))))))
-       (set-symbol-property! hr-sym 'json-string json-esc)))
+       (set-symbol-property! hr-sym 'json-string json)))
    hr-syms))
 
 ;;Update Thread