Skip to content

H
hal
Commit b0aec69b authored by Fabien Maniere's avatar Fabien Maniere
Browse files
Options

Update Utils.hs

parent 74b97d5c
Hide whitespace changes
Inline Side-by-side
Showing with 3 additions and 0 deletions
src/HAL/Utils.hs
View file @ b0aec69b
......@@ -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