Merge pull request #430 from pfitaxel/fix-markup

erikmd · web-flow · commit 7fc13241f54e · 2021-10-04T23:45:22.000+02:00
fix: details (HTML5 markup)
diff --git a/src/main/learnocaml_main.ml b/src/main/learnocaml_main.ml
@@ -270,7 +270,6 @@ let process_html_file orig_file dest_file base_url no_secret =
               when no_secret && List.mem (("", "id"), "secret-section") attrs ->
             `Start_element ((e, "div"), (("", "style"), "display:none")::attrs)
          | t -> t)
-  |> Markup.pretty_print
   |> Markup.write_html
   |> Markup_lwt.to_lwt_stream
   |> Lwt_io.write_chars wfile >>= fun () ->
diff --git a/static/description.html b/static/description.html
@@ -1,4 +1,4 @@
-<!doctype html>
+<!DOCTYPE html>
 <html>
 
 <head>
diff --git a/static/exercise.html b/static/exercise.html
@@ -1,4 +1,4 @@
-<!doctype html>
+<!DOCTYPE html>
 <html>
   <head>
     <meta charset="UTF-8">
diff --git a/static/index.html b/static/index.html
@@ -1,3 +1,4 @@
+<!DOCTYPE html>
 <html>
   <head>
     <meta charset="UTF-8">
diff --git a/static/partition-view.html b/static/partition-view.html
@@ -1,4 +1,4 @@
-<!doctype html>
+<!DOCTYPE html>
 <html>
   <head>
     <meta charset="UTF-8">
diff --git a/static/playground.html b/static/playground.html
@@ -1,4 +1,4 @@
-<!doctype html>
+<!DOCTYPE html>
 <html>
   <head>
     <meta charset="UTF-8">
diff --git a/static/student-view.html b/static/student-view.html
@@ -1,4 +1,4 @@
-<!doctype html>
+<!DOCTYPE html>
 <html>
   <head>
     <meta charset="UTF-8">
