backup what's I did until now

1 files changed, 6 insertions, 6 deletions

diff --git a/src/Lib.hs b/src/Lib.hs
index ed1d92d..bb2c104 100644
--- a/src/Lib.hs
+++ b/src/Lib.hs
@@ -14,7 +14,7 @@ import Data.Aeson
 import Data.Aeson.TH
 import Network.Wai
 import Network.Wai.Handler.Warp
-import Network.Wai.Middleware.RequestLogger (logStdoutDev) -- ⚠️ This is the key import!
+import Network.Wai.Middleware.RequestLogger (logStdoutDev)
 import Servant
 import RenameUtils (typeFieldModifier, dotFieldModifier, replaceUsername, replaceRoomId)
 import QueryUserLib
@@ -120,7 +120,7 @@ data Message = Message
 
 data TextMessageContent = TextMessageContent
   { body :: String
-      , msgtype :: String
+      -- , msgtype :: String
       , creator :: String
       , membership :: String
       , join_rule :: String
@@ -144,7 +144,7 @@ data Keys = Keys
   } deriving (Eq, Show)
 
 $(deriveJSON defaultOptions ''Keys)
-
+-- ⚠️ This is the key import!
 data KeysHolder = KeysHolder
   { username :: [String]
   } deriving (Eq, Show)
@@ -274,7 +274,7 @@ getMessageContentTempl msgtype eventId time state_key = (Message
     (
         TextMessageContent
         "Hiii"
-        "m.text"
+        -- "m.text"
         "@username:localhost:8000"
         "join"
         "public"
@@ -290,8 +290,8 @@ messages :: [Message]
 messages = [
     getMessageContentTempl "m.room.create" "$make" "1757771812" "",
     -- getMessageContentTempl "m.room.join_rules",
-    getMessageContentTempl "m.room.member" "$join" "1757771814" "@username:localhost:8000",
-    getMessageContentTempl "m.room.message" "$msg" "1757771816" ""
+    getMessageContentTempl "m.room.member" "$join" "1757771814" "@username:localhost:8000"
+    -- getMessageContentTempl "m.room.message" "$msg" "1757771816" ""
   ]
 
 sync :: Handler Sync