aboutsummaryrefslogtreecommitdiff
path: root/src/QueryUserLib.hs
diff options
context:
space:
mode:
authoradambrangenberg <adabran06@gmail.com>2025-09-14 11:52:21 +0200
committeradambrangenberg <adabran06@gmail.com>2025-09-14 11:52:21 +0200
commitf8b26f8699d391d1558d95ccd907133403cb2b73 (patch)
tree72789f15fd5755e5a34b0344db29b6cf4942fc7d /src/QueryUserLib.hs
login works, ig. Will remake everything now
Diffstat (limited to 'src/QueryUserLib.hs')
-rw-r--r--src/QueryUserLib.hs11
1 files changed, 11 insertions, 0 deletions
diff --git a/src/QueryUserLib.hs b/src/QueryUserLib.hs
new file mode 100644
index 0000000..5677ac5
--- /dev/null
+++ b/src/QueryUserLib.hs
@@ -0,0 +1,11 @@
+module QueryUserLib (QueryUser, makeQueryUser) where
+
+data QueryUser = QueryUser
+ { localpart :: String
+ , user_id :: String
+ , display_name :: String
+ , is_guest :: Bool
+ } deriving (Eq, Show)
+
+makeQueryUser :: String -> String -> String -> Bool -> QueryUser
+makeQueryUser = QueryUser