Add refresh hook

ccaca407 · Nala Ginrut · cbe969fb · ccaca407
Verified Commit ccaca407 authored Mar 23, 2020 by Nala Ginrut
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 0 deletions

ENTRY ENTRY +5 -0

No files found.
--- a/ENTRY
+++ b/ENTRY
@@ -24,4 +24,9 @@
   ((@ (app models posts) get-all-posts))
   (display "done\n")))

+(run-when-refresh!
+ (lambda ()
+   (system (format #f "rm -f ~a/tmp/cache/index.html" (current-toplevel)))
+   (system (format #f "rm -f ~a/tmp/cache/feed_atom.html" (current-toplevel)))))
+
 ;; Put whatever you want to be called before server running here