place docstring above include not below

trefis · trefis · commit 0c816af91ede · 2017-05-19T11:07:27.000+01:00
Because it's just not visible when the include is expanded otherwise.
diff --git a/src/to_html_tree.ml b/src/to_html_tree.ml
@@ -990,5 +990,5 @@ and include_ ~get_package (t : _ Types.Include.t) =
       ]
   in
   [ div ~a:[ a_class ["spec"; "include"] ]
-      (incl @ [ div ~a:[ a_class ["doc"] ] doc])
+      (div ~a:[ a_class ["doc"] ] doc :: incl)
   ], tree

Original file line number	Diff line number	Diff line change
`@@ -990,5 +990,5 @@ and include_ ~get_package (t : _ Types.Include.t) =`
`990`	`990`	`]`
`991`	`991`	`in`
`992`	`992`	`[ div ~a:[ a_class ["spec"; "include"] ]`
`993`		`- (incl @ [ div ~a:[ a_class ["doc"] ] doc])`
	`993`	`+ (div ~a:[ a_class ["doc"] ] doc :: incl)`
`994`	`994`	`], tree`