Fix bug with new API interface

1 files changed, 2 insertions, 2 deletions

diff --git a/desmoctl.scm b/desmoctl.scm
index e2fd36f..924437a 100644
--- a/desmoctl.scm
+++ b/desmoctl.scm
@@ -443,7 +443,7 @@
     (debug-print "apply json:" apply-json)
 
     (define api-response
-      (post-prison post-fn cfg apply-json))
+      (post-prison cfg apply-json))
 
     (debug-print "api-response:" api-response))
 
@@ -459,7 +459,7 @@
   (print "Fetching status of all prisons...")
 
   (define api-response
-    (get-prisons get-fn cfg))
+    (get-prisons cfg))
 
   (define prisons (vector->list (from-json-string api-response)))