Return void when writing tables to disk

Dr-Nekoma · Nov 19, 2023 · 3b9fb2b · 3b9fb2b
1 parent aa80cd9
commit 3b9fb2b
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/io.rkt b/io.rkt
@@ -69,7 +69,8 @@
     (let* [(serialized-table (serialize table))
            (file-name (build-ndf-filename table-name))]
       (call-with-output-file file-name #:exists 'truncate
-        (curry write-bytes serialized-table))))
+        (curry write-bytes serialized-table))
+      (void)))
 
   (define (write-schema-to-disk schema)
     (define (write-entity-to-disk file-out entities-list)