From e24b51ae23c3037d0270f4ebf60c5e4917bf3c17 Mon Sep 17 00:00:00 2001 From: adambrangenberg Date: Sun, 7 Dec 2025 02:33:55 +0100 Subject: backup what's I did until now --- src/Lib.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'src/Lib.hs') 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 -- cgit v1.2.3