include/dune

@@ -1,7 +1,7 @@
 (library
  (name include)
  ; (wrapped false)
- (modules taler_signatures sql)
+ (modules taler_signatures)
  (libraries))
 
 (executable

include/sql/Makefile

@@ -33,20 +33,8 @@ exchange-0004.sql: exchange-0004.sql.in 0004-*.sql
 
 sql: procedures.sql exchange-0002.sql exchange-0003.sql exchange-0004.sql
 
-OUTFILE := ../sql.ml
-
-$(OUTFILE): sql
-	@printf "" > $@
-	@for f in $(sql_DATA); do \
-	fname=$$(basename "$$f"); \
-	base=$${fname%.*}; \
-	fname=$$(echo "$${base}" | tr '-' '_'); \
-	content=$$(cat "$$f"); \
-	printf "let %s = {|%s|}\n" "$${fname}" "$${content}" >> $@; \
-	done
-
-.DEFAULT_GOAL := crunch
-crunch: $(OUTFILE)
+.DEFAULT_GOAL := all
+all: sql
 
 clean:
 	rm -f procedures.sql

src/database.ml

@@ -23,3 +23,5 @@ let test req server _ =
       let str = Fmt.str "Database error: %a." Caqti_error.pp err in
       let* () = Vif.Response.with_string req str in
       Vif.Response.respond `Internal_server_error
+
+let init = test

src/mte.ml

@@ -113,7 +113,8 @@ let routes =
     get (rel /?? nil) --> hello; get (rel / "terms" /?? nil) --> Static.terms;
     get (rel / "privacy" /?? nil) --> Static.privacy;
     get (rel / "management" / "keys" /?? nil) --> Management.keys;
-    get (rel / "db" /?? nil) --> Database.test;
+    get (rel / "db_test" /?? nil) --> Database.test;
+    get (rel / "db_init" /?? nil) --> Database.init;
   ]
 
 let () =