Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

configに書かれたライブラリパスを使うようにした

  • Loading branch information...
commit 14e27bafbcb1a24ee3076b5fcc2aa6c640ba8a9b 1 parent 8089adc
@mzp authored
Showing with 4 additions and 1 deletion.
  1. +4 −1 main.ml
View
5 main.ml
@@ -51,8 +51,11 @@ let search_page (cgi : cgi) =
let modules =
HList.concat_map (fun {Config.modules=m} -> m) configs
in
+ let paths =
+ filter_map (fun {Config.path=p} -> p) configs
+ in
let page, content =
- Search.search (cgi#param "q") modules []
+ Search.search (cgi#param "q") modules paths
+> Controller.pagenation ~window:20 ~offset:(try
int_of_string @@ cgi#param "o"
with _ -> 0)
Please sign in to comment.
Something went wrong with that request. Please try again.