Fixed tag extraction

darrenldl · Feb 18, 2023 · d55344a · d55344a
1 parent ce30167
commit d55344a
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 3 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -1,5 +1,9 @@
 # Changelog
 
+## 0.0.4
+
+- Fixed tag extraction
+
 ## 0.0.3
 
 - Made header extraction more robust to files with very long lines

diff --git a/src/notefd.ml b/src/notefd.ml
@@ -84,8 +84,7 @@ let parse (l : string list) : string list * String_set.t =
          | Title x -> aux (x :: title) tags xs
          | Tags l ->
            let tags =
-             List.map String.lowercase_ascii l
-             |> String_set.add_list tags
+             String_set.add_list tags l
            in
            aux title tags []
         )

diff --git a/src/version_string.ml b/src/version_string.ml
@@ -1 +1 @@
-let s = "0.0.3"
+let s = "0.0.4"