Commit b0aec69b authored by Fabien Maniere's avatar Fabien Maniere

Update Utils.hs

parent 74b97d5c
......@@ -12,5 +12,8 @@ toText lang = T.pack [l1, l2]
where
(l1, l2) = toChars lang
langTitleS :: ISO639_1 -> Text
langTitleS lang = (toText lang) <> "_title_s"
langAbstractS :: ISO639_1 -> Text
langAbstractS lang = (toText lang) <> "_abstract_s"
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment