update-info module

pollen/info.rkt

@@ -1,5 +1,5 @@
 #lang info
-(define version "1.0")
+(define version "1.eskfage")
 (define deps '("base" "txexpr" "sugar" ("markdown" #:version "0.18") "htdp"
                "at-exp-lib" "html-lib" "rackjure" "web-server-lib" "scribble-text-lib" "rackunit-lib"
                "gui-lib"))

pollen/private/ts.rktd

@@ -1 +1 @@
-1454184871
+1454185672

pollen/private/update-info.rkt

@@ -0,0 +1,11 @@
+#lang racket/base
+(require racket/runtime-path racket/file pollen/private/version)
+
+(define-runtime-path info-file "../info.rkt")
+
+(define str (file->string info-file))
+
+(define newstr
+  (regexp-replace #rx"\\(define version .*?\\)" str (format "(define version ~v)" (pollen:version))))
+
+(display-to-file newstr info-file #:exists 'replace)