summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
authorRyan Kavanagh <rak@rak.ac>2020-05-31 00:39:17 -0400
committerRyan Kavanagh <rak@rak.ac>2020-05-31 00:39:17 -0400
commit096ec2adb209b1e2bbe7db3a702a0c69664a1e88 (patch)
tree52fdaa88253933535db73c913619be590126a67b /bin
parentAdded a build system and adopt modules (diff)
Fixed compilation errors in bin
Diffstat (limited to '')
-rw-r--r--bin/dune2
-rw-r--r--bin/leda.ml12
2 files changed, 7 insertions, 7 deletions
diff --git a/bin/dune b/bin/dune
index ddff424..e161175 100644
--- a/bin/dune
+++ b/bin/dune
@@ -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)