From f8b26f8699d391d1558d95ccd907133403cb2b73 Mon Sep 17 00:00:00 2001 From: adambrangenberg Date: Sun, 14 Sep 2025 11:52:21 +0200 Subject: login works, ig. Will remake everything now --- src/RenameUtils.hs | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 src/RenameUtils.hs (limited to 'src/RenameUtils.hs') diff --git a/src/RenameUtils.hs b/src/RenameUtils.hs new file mode 100644 index 0000000..cdf36d2 --- /dev/null +++ b/src/RenameUtils.hs @@ -0,0 +1,19 @@ +module RenameUtils where + +import Data.List.Utils (startswith, replace) + +typeFieldModifier :: String -> String +typeFieldModifier "type__" = "type" +typeFieldModifier "type___" = "type" +typeFieldModifier name = name + +dotFieldModifier :: String -> String +dotFieldModifier = replace "__" "." + +replaceUsername :: String -> String +replaceUsername "username" = "@username:localhost:8080" +replaceUsername name = name + +replaceRoomId :: String -> String +replaceRoomId "slay" = "!slay:localhost:8080" +replaceRoomId name = name -- cgit v1.2.3