Permalink
Browse files

Fix bug on empty files

  • Loading branch information...
1 parent 8386c5c commit 11dcff78ef8316576bf5f413993d31f65115b0f4 @VictorNicollet committed Sep 25, 2012
Showing with 1 addition and 0 deletions.
  1. +1 −0 ohmStatic/tool/run.ml
View
@@ -170,6 +170,7 @@ let generate ?name root =
(Printf.sprintf " Ohm.Html.str %S html ;\n" s)
| `URL s -> Buffer.add_string mlbuf
(Printf.sprintf " Ohm.Html.esc (url %S) html ;\n" s)) (page # contents) ;
+ Buffer.add_string mlbuf " ()\n" ;
(* METHOD "css" *)
Buffer.add_string mlbuf " method css url = []\n" ;

0 comments on commit 11dcff7

Please sign in to comment.