diff options
| author | Ryan Kavanagh <rak@rak.ac> | 2020-05-31 00:39:17 -0400 |
|---|---|---|
| committer | Ryan Kavanagh <rak@rak.ac> | 2020-05-31 00:39:17 -0400 |
| commit | 096ec2adb209b1e2bbe7db3a702a0c69664a1e88 (patch) | |
| tree | 52fdaa88253933535db73c913619be590126a67b | |
| parent | Added a build system and adopt modules (diff) | |
Fixed compilation errors in bin
| -rw-r--r-- | bin/dune | 2 | ||||
| -rw-r--r-- | bin/leda.ml | 12 |
2 files changed, 7 insertions, 7 deletions
@@ -1,4 +1,4 @@ (executable (public_name leda) - (name main) + (name leda) (libraries base gemini)) diff --git a/bin/leda.ml b/bin/leda.ml index 139f5fe..07fe43c 100644 --- a/bin/leda.ml +++ b/bin/leda.ml @@ -1,10 +1,10 @@ -module M = Gemini.MimeTextGemini +module M = Gemini.MimeTextGemini.MimeTextGemini -let test_gemini = "\ - => /blah mylink\r\n\ +let test_gemini = "=> /blah mylink\r\n\ => /blah\r\n\ ```\r\n\ - preformatted\r\n\ + preformatted 1\r\n\ + preformatted 2\r\n\ ``` ending preformatted text\r\n\ some text\r\n\ more text\r\n\ @@ -15,6 +15,6 @@ let _ = print_endline test_gemini let _ = print_endline "\n\n...gets parsed as...\n\n" -let test_parse s = s (* M.gemini_to_str (M.str_to_gemini s) *) +let test_parse s = M.gemini_to_canon_str (M.str_to_gemini s) -let _ = print_endline (test_parse test_gemini) +let main = print_endline (test_parse test_gemini) |