diff options
Diffstat (limited to 'src/Lib.hs')
| -rw-r--r-- | src/Lib.hs | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -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 |