login works, ig. Will remake everything now

1 files changed, 19 insertions, 0 deletions

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