software-archive/logarion-2016
2
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

reverting tokeauth functionality, new branch for experimentation with it

Browse Source
This commit is contained in:
Stavros Polymenis 2016-12-08 21:09:01 +00:00
parent c9adc36f72
commit 96e9a909e6
2 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Makefile
View File

@ -1,7 +1,7 @@
OCB_FLAGS = -use-ocamlfind -I src # -I lib
OCB = ocamlbuild $(OCB_FLAGS)
PKGS = toml,uuidm,omd,str,batteries,lens,lwt,lwt.unix,ptime,ptime.clock.os,re.str,lens.ppx_deriving
WEB_PKGS = $(PKGS),opium.unix,tyxml,mustache,tokenauth
WEB_PKGS = $(PKGS),opium.unix,tyxml,mustache
CMD_PKGS = $(PKGS),cmdliner
all: cmd web

5
src/web.ml
View File

@ -58,11 +58,6 @@ let ymd_or_error y = match y with Some (path, meta) -> Logarion.of_file ("ymd/"
let webcfg = Configuration.of_filename "web.toml"
let lgrn = Logarion.Configuration.of_filename "logarion.toml"
let token config rand_state dbs =
match Tokenauth.(member dbs.members "test@test") with
| Some m -> ignore @@ Tokenauth.(token_spawn config rand_state dbs.tokens m);
| None -> ()
let () =
Random.self_init();
let (>>=) = Lwt.(>>=)